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Introduction 


Important Information about This Book 


NENNEN UM... nnl fh 


WHY READ 
THIS BOOK? 


APL is an extremely concise and powerful computer programming language. You 
can learn to do very interesting things with only a little knowledge of the 
language. 


APL (A Programming Language) was originally conceived in the late 1950s by 
Kenneth E. Iverson, then a professor of mathematics at Harvard University. It 
was initially used as a mathematical notation and not as a computer programming 
language. In the mid-1960s, the notation was implemented as a programming 
language for use by IBM's central research staff at the company's Thomas J. 
Watson Research Laboratory. APL has now been implemented by companies 
worldwide on a wide variety of hardware and operating systems, from large 
mainframes to microcomputers. 


STSC, Inc. was organized in 1969 to provide an improved interactive time-sharing 
service based on the APL programming language, and has since expanded to 
include a full range of APL products for mainframes, minicomputers, and 
microcomputers. 


As APL developed, more and more users discovered that APL offered significant 
productivity advantages when compared with more traditional languages such as 
FORTRAN, COBOL, and PL/I. As the language became more popular, STSC 
recognized the need for an introductory tutorial to the language so that new 
computer users could learn the language easily. This book was written to meet 
that need. APL Is Easy! has been adapted to fit most commercial APL systems, 
including IBM's VS APL, I. P. Sharp Associates’ SHARP APL, and STSC's 
APL*PLUS Systems, and concentrates on elements of the language common to 
them. If, however, something does not produce a result you expected, or does not 
work as shown in the book, refer to your system documentation or an experienced 
user of your APL system. 
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WHO SHOULD 
READ THIS 
BOOK? 


HOW IS 
THE BOOK 
ORGANIZED? 


This book will take you through your first 10 to 15 hours of learning APL and 
teach you to do some useful things with what you learn. By the end of Chapter 3, 
you'll be storing data in the computer and making the computer “talk to you.” By 
the end of Chapter 4, you'll be using the computer as an "electronic checkbook" 
to analyze your bank transactions. By the end of Chapter 5, you'll be writing 
programs to create simple reports and produce bar charts. 


You need not have any previous computer experience to read this book. You 
Should know how to start up your system before you begin reading, however. To 
learn about signing on, either consult the documentation provided for your system 
or ask an experienced user. 


The book assumes that: 


* You are sitting in front of a computer that is turned on and has APL loaded. 

e You are familiar with your keyboard. 

* You are using the APL*PLUS System for the PC and have the workspaces 
DEMOAPL and LESSONS available. 


If you are using APL on a different system, be sure to read your system 
documentation so that you are familiar with your system’s keyboard. We’ve 
provided a blank keyboard layout for you in Appendix C. Fill in the characters on 
this keyboard in the proper locations for your System and use it as a quick 
reference throughout your work with this book. 


We have also provided the APL code for the functions in the LESSONS 
workspace in Appendix D. If your system does not have this workspace, you can 
type in the code (see Chapter 5) or have someone more experienced with APL do 
it for you. 


APL Is Easy! contains 10 chapters, several appendixes, a glossary, and an index. 
The chapters contain the following information: 


* Chapter 1 introduces the concept of programs and data. 

* Chapter 2 explains how to do simple arithmetic and store data using APL. 

* Chapter 3 explains how words and sentences are handled in APL, and also 
introduces some more ways to do arithmetic. 

* Chapter 4 explains some ways to analyze your data. 
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* Chapter 5 explains how to write programs and make corrections in them. 

e Chapter 6 introduces formatting with the format function and the system 
function DFMT. UFMT is a technique that gives you more control over the 
way the computer prints out information. 

* Chapters 7 and 8 deal with the two storage facilities of APL, workspaces and 
files. 

* Chapter 9 provides some additional programming tools, including the use of 
"friendly" interactive programs. 

e Chapter 10 deals with more ways to analyze and manipulate your data. 


Appendix A following Chapter 10 may be the most important part of the 
book—it contains the answers to the exercises and explanations of some of the 
more subtle points. Appendix B contains some common APL error messages, 
their causes, and solutions. Appendix C is the blank keyboard mentioned earlier, 
and Appendix D contains the programs used in the book. 


Speaking of exercises—it's really important that you work through as many of 
the exercises as you can, since that's the best way to learn APL. Don't worry if 
you don't answer all the problems correctly—that's what Appendix A is there for. 


Each chapter contains an introduction, a number of sections (some containing 
subsections), and a summary. Most chapters include exercises at the end. 


Section titles, subsection titles, and keywords all appear in the margins. Section 
titles are printed in bold, uppercase letters (such as USING APL LIKE A 
DESK CALCULATOR). 


Subsection titles are printed in bold, with initial capital letters, such as Negative 
Numbers or Arithmetic with Tables. Keywords are printed in bold, 
lowercase letters, such as immediate execution mode. These are included to 
help you find things you're looking for in the text. 


APL examples are printed using APL letters (italic capital letters plus special 
APL symbols). Each example includes two parts: 


e what you type in 
* what the system replies 
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In APL, the user's entries are indented six spaces, and the system's replies are 
printed at the left-hand margin. For example, 


9+3 (You type this and press RETURN or ENTER.) 
3 (The system responds with this.) 


The system always returns to the six-space indent to wait for you to enter 
something new. 


To clarify whether it is you or the system printing something, the user entries are 
in bold type, as shown in the example above. 


Throughout this book, when we say "enter," we mean for you to do two things: 
(1) type something, and (2) press RETURN or ENTER. 


WHERE DO When you finish this book, you'll probably want to go on to a more detailed 
I GO FROM book on APL. Gilman and Rose's APL: An Interactive Approach is a good one. 
HERE? Your system's reference or user's guide would also be a good place to learn about 


specific things like full-screen editing, files, formatting, and the keyboard layout. 


YOUR We're eager to hear your comments on APL Is Easy! For your convenience, 
COMMENTS we've included a Feedback Form and postage-paid mailer at the end of this manual. 
ARE If the form is missing, please send your comments to: 
WELCOME 

STSC, Inc. 

2115 East Jefferson Street 

Rockville, Maryland 20852 


Be sure to include your name and address and the name of the manual. 
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What Is a Program? 





PROGRAMS 
AND DATA 


This chapter explains what a computer program is and why it is useful. You will 
get a chance to run some programs and to examine their parts. You will also be 
able to look at the data used by the programs. 


This chapter also provides a general understanding of how programs work and the 
things they can do for you. The rest of the book will focus on the APL building 
blocks you can use to create your own programs. 


Before you begin reading this chapter, read the Introduction to this book and the 
instruction sheets provided along with this system, to learn about getting started 
in APL. 


The purpose of learning APL, or any other programming language, is to learn 
how to write programs. What exactly is a program, you might well ask, and what 
is it good for? 


A program is simply a list of instructions telling the computer what to do. It is 
similar to a recipe for baking a cake—the author of the cookbook gives you a list 
of things to do to complete the task (bake the cake), and you follow them through 
in the order given. If you miss a step or mistakenly get the steps out of order, 
you'll still wind up with something, but it won't be the cake you planned on. 


The ingredients you use to bake the cake (flour, eggs, and so on) correspond to the 
data that a program uses. For a program to do work, it must have something to 
Work on, and we call this data. Many programs use numbers as data (as desk 
calculators do), and others use words and punctuation (as word processors do). 


Programs are useful because they can be stored inside a computer, where they can 
be used over and over again. This means that, once you have a program for 
figuring your taxes or for playing a game, you can use it over and over and it will 
always behave the same way. We might get drowsy and make a mistake in the 
middle of figuring our taxes, but the computer never gets sleepy and won't make 
those kinds of mistakes. 
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Once you are familiar with writing programs, you can get the computer to do 
virtually anything you want with numbers and words. The purpose of this book 
is to teach you enough APL to write programs to do some interesting things. 


Loading a In APL, programs and data are stored in places called “workspaces.” To geta 
Workspace workspace, you must “load” it. This simply activates the workspace so you can 
work with the programs and data stored in it. 


To show you what programs can do, we’ve provided a ready-made workspace called 
DEMOAPL. To get this workspace, enter the command shown below. (By 
“enter,” we mean type the letters, including the spaces, and then press the 
RETURN key, which is labeled ENTER on some keyboards.) 


)LOAD DEMOAPL 
SAVED. . . 


The system will print a message that includes the word SAVE D and a date and 
time. The system then automatically displays the contents of a variable named 
DESCRIBE that describes the other programs in the workspace. (Since the text 
will scroll up faster than you can read it, press CTRL-S to stop the display, then 
press CTRL-Q to continue it.) 


Remember: We're assuming that you're using the APL* PLUS System for the 
PC on an IBM personal computer and that the DEMOAPL workspace (on Disk 4 
of the system) is in your default disk drive. (If you don't know what that means, 
read the documentation that came with your system.) If you are using a different 
APL system on a different computer, you may have to enter a slightly different 
version of the command. The following table shows some examples. 


Command System 

)LOAD MYDISK:DEMOAPL APL * PLUS Mac System 
LOAD 1 DEMOAPL APL *PLUS PC, Disk Drive B 
LOAD /USR/APL/REL3/DEMOAPL APL*PLUS UNX System 
LOAD 101 DEMOAPL APL * PLUS Mainframe System 


If you made a typing mistake when entering the LOAD command, you probably 
got an error message like WS NOT FOUND or INCORRECT COMMAND. 
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Program 


If this happens, don't worry—mistakes can never hurt the computer. After a 
while, you'll find that error messages are helpful, since they tell you what went 
wrong. For now though, simply try again by retyping the command. When the 
SAVED message prints, you'll know you're in the right place. 


Once the SAVE D message prints, you're ready to run some programs. Enter: 


CALENDAR 9 1982 
SEPTEMBER 1982 
SUN MON TUES WED  THUR FRI SAT 


1 2 3 4 
5 6 7 8 9 10 11 
12 13 14 15 16 17 18 
19 20 21 22 23 24 25 
26 27 28 29 30 


The program will print a calendar for September (month number 9) of 1982. Try 
the program again with some other months, such as the month you were born. 


Again, if you make a typing mistake, it's no big deal. You'll get some sort of an 
error message (like SYNTAX ERROR) but then you can just try again by 
entering CALENDAR followed by a month number and year. 


Now let's do something else. We want to see how the program works. That is, 
you want to look at the parts of the program. So let's list the contents of the 
program. 


LIST 'CALENDAR' 
If nothing is displayed, you probably made a typing error, so just try again. Also, 


be sure to include the two single quote marks. Leaving a quote mark out may 
cause your terminal to "freeze up," so just enter another quote if this happens. 
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[1] 
[2] 
[3] 
[4] 
[5] 
[6] 
[7] 
[8] 
[9] 
[10] 
[11] 
[12] 
[13] 
[14] 


The command LIST ' CALENDAR" produces the following display. 


v Q-CALENDAR M;UIO;T 


aCALENDAR mm yy 

aprints a calendar of a specified month mm for year YY 
üIO-1 o T-M-MLYM1,1 © M-1931M 

OFRROR(210332 0 12 LMI3 11]1)/'NOT BEFORE OCT 1752' 
Q-1001 (M01 3l- 10 *6 0 12 T^3* O 12 ıM[3 112[2] 
Q-71ML21*Q* (L 0.2*2.6xML112* LQ*420-T1.75xLME31*100 
M-(T[21€ 4 6 9 11)+(T£2]=2)*3--/0= 4 100 400 4000 I1pT 
Q-'BI6' OFMT 6 7 p42t(Qp0),131-M 

Q-' SUN MON TUES WED THUR FRI SAT',[11Q 
M-'JANUARY FEBRUARY MARCH APRIL MAY : 
M-M,'JUNE JULY AUGUST | SEPTEMBEROCTOBER ' 
M-(12 9 pM,'NOVEMBER DECEMBER ')(T(2];] 

M-(Mi' ')tM 9 M-M,sTI1] 9 M-CC(2*LCA2-p0M) *2)2p! '),M 
Q-' ',I[I11(351M2, L11Q 


First, notice how short the program is. You may have seen programs written in 
other languages, and they were probably three or four (or even more!) times longer 
than this. APL is a very concise programming language—it allows us to do a lot 
in a very little space. 


Second, notice the numbers on the left-hand side of the program. These numbers 
tell the computer the order for doing the steps of the program. Just like it was 
important for us to follow the order of the steps in baking a cake, it's important 
for the computer to follow the steps of a program in the correct order. 


Third, notice the "funny symbols" in the lines of the program. These are APL 
symbols, and each does a particular job. The rest of this book will focus on 
explaining what those symbols do and how they can be put together to make a 
program like CALENDAR. 


To learn about some other programs in the workspace DEMOAPL, enter: 


DESCRIBE 


You'll see some text describing the different programs in the workspace and how 
to use them. Since the text is long, we won't show it here. We urge you to try 
as many of the programs as you like, though, to get a feel for the types of things 
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LISTING THE 
NAMES OF 
PROGRAMS 


LISTING THE 
NAMES OF 
VARIABLES 


programs can do. (If you geta VALUE ERROR message when you enter 
DESCRIBE, you probably made a typing error. Just try again by typing 
DESCRIBE.) 


Now that you've run programs to your heart's content, let's try something new. 
Let's list the names of all the programs in the workspace: 


)FNS 
The command is ) FN S because programs are often called functions in APL. 


We're not going to show all of the list printed by ) FN S, since it may be 
different on different systems. The list may run for several lines though. 


If you like, you can list these programs (functions) like you did CALENDAR: 
LIST "'name' 


Don’t enter LIST NAME —rather, enter LI ST and then one of the function 
names included in the list printed by ) FNS. Be sure to put quotes around the 
name. 


We can also look at the data in the workspace. Enter the command 
)VARS 


(Again, we won't print the entire list.) What prints is a list of names again, but 
this time it's a list of data names, separated by blanks. Data is stored in 
variables—called that because the data inside them can vary. The programs in 
workspace DEMOAPL use the data stored in these variables to produce calendars 
and do all the other things mentioned in the DESCRIBE listing. 


To see what's inside a variable, you just enter its name: 


MON 
9 


You can look at the contents of any of the variables in the list printed by )VAR S 
by just entering its name this way. Be sure to enter only one name at a time. 
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SUMMARY 


Probably the contents of most of these variables will be pretty mysterious to 
you—a few odd numbers and words. It’s not important now that you know what 
the numbers and words are used for though. We only want you to realize that this 
data is stored in the computer for programs to work with. In the next chapter, 
you'll learn how to store your own data and work with it in different ways. 


1. A program is a list of instructions that tells the computer how to do some 
work. A program is also called a “function” in APL. 
2. A program does its work using data. 


3. Data is stored in something called a “variable.” You can see what's stored in a 
variable by entering the variable's name. 


4. A “workspace” is a place where programs and data are stored. 


5. Youcan list the names of the functions and variables in a workspace with the 
commands )FNS and )VARS. 
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USING APL 
LIKE A DESK 
CALCULATOR 


clearing the 
workspace 


immediate 
execution mode 


In this chapter, you will learn how to do arithmetic with APL using single 
numbers, lists of numbers, and tables of numbers. You'll also learn how to store 
these numbers in the computer's memory. You'll be introduced to the shape, 
reshape, and catenate functions, the first two of which are unique to APL. 


At the end of this chapter, as at the end of most of the following chapters, there 
are sets of exercises for you to work on. We urge you to work at least some of 
the problems, because that's one way to really gain experience with APL. 
Solutions and explanations are provided in Appendix A. 


Now that we've seen some things we can do with APL, we need to back up a 
little and explore the tools APL provides us with to do those things. 


First, enter the command: 


)CLEAR 
CLEAR WS 


The system responds with CLEAR WS, which means you have an empty, 
unused workspace. If you enter: 


)FNS 


or 
)VARS 


you'll see that there's nothing there. 


In its usual state, the APL system can be used like a desk calculator. Try 
entering: 


128*307 


832-299 
533 
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vectors and 
scalars 


66:72 
4x12 


33 
48 


We call this “immediate execution mode,” since APL immediately gives us an 
answer to what we type in. 


The questions we just asked APL were pretty easy. Let's try something a bit 
harder: 


2377 
3.285714286 

34674+7 
4953.428571 


What about doing something with a list of numbers? Try: 


7 5 3+7 4 2 
14 9 5 


(Be careful to leave at least one space between each of the numbers.) What 
happened? The first number on the left of the plus sign was added to the first 
number on the right, the second number on the left to the second number on the 
right, and so on. 


One of the nicest features of APL is that a single function can work on long lists 
of numbers. A list of numbers, like 7 5 3 in the example above, is called a 
“vector,” which is just shorthand for “a bunch of numbers.” If you want to refer 
to a single number, you can call it a “scalar,” which is a little shorter than saying 
“a single number." 


Let's try some more: 


75 3x7 4 2 


49 20 6 

7 5 3+7 4 2 
I AZo 129 

8 6-6 4 
2 2 


12 
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But then try: 
4 5+1 2 3 
LENGTH ERROR 
4 5+1 2 3 
A 


We got an error message, because two vectors must be of equal length (that is, 
contain the same number of elements) in order to be combined. Since the 
statement cannot be executed, APL tells you why. 


What about mixing vectors with scalars? Try: 


8 10 12+3 
11 13 15 


We can see that the single number (scalar) is added individually to each number in 
the vector. So if a scalar appears on one side of a function symbol (like + or +) 
and a vector is on the other side, the scalar is added to (or subtracted from, 
multiplied by, and so on) each number in the vector. Try this with the other 
arithmetic functions we've learned and you'll see that the results are similar. 


In regular arithmetic notation, the same symbol is used to mean the operation 
subtraction (2 - 4) and the sign for a negative number (-2). 


In APL, the subtraction function is done with the familiar "middle minus" 
(hyphen) sign: 


10-5 4 3 
56 7 


while a negative sign is the “high minus.” The high minus is usually located on 
the 2 key; type it by pressing SHIFT, ALT, or OPTION with 2. 


-3+8 


13 
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Right-to-Left 
Execution 


If you put the hyphen to the left of a number, it turns the number into a negative 
number: 


-4 
74 


Or, it turns a negative number into a positive one: 


a3 
3 


But, the entry: 


~-4 
SYNTAX ERROR 
~-4 


A 


givesa SYNTAX ERROR because you can’t have a high minus sign separated 
from a number it's part of. It has to be right next to the number. 


Let's try two arithmetic functions in the same line. Enter: 


3x4-2 
6 


Did you expect the answer to be 10? That's because in regular arithmetic, 
multiplication is performed before addition and subtraction. APL has so many 
different functions that it would be confusing to have a set of rules about which 
are used before each other. APL uses one easy rule—it always analyzes a 
statement right to left. That is, it evaluates the function at the far right of the line 
first, then moves left to the next function. APL evaluated the example above like 
SO: 


14 
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ERROR 
CORRECTION 


Let's try a few more examples: 
6-241 


8*3x2 
14 


APL also works this way for statements with a large number of functions in 
them. If we want to find the sales tax for a purchase with three different items 
(assuming a tax rate of 5%), we can enter: 


.05 x 1.32 + 4.10 + .78 
0.31 


The order of execution can be changed by using parentheses to surround the 
expression we want executed first. The contents of the parentheses are treated as a 
single value, so the system must calculate this value before using it. 


(6*2)*1 
4 

6+2+1 
2 

(8*3)x2 
22 

8*3x2 
14 


If we want to find the number of square feet in three rooms, we can multiply the 
length and the width of each room, and then add them up: 


(12x152*(20x152*(15x12) 
660 


So far, so good. We trust that you have been able to get through most of the 
examples up to this point without any major problems. You've probably made 
some typing errors and received some error reports, though (like LENGTH 
ERROR), so now you're ready to learn about correcting errors (also called "input 
line editing"). 
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Interrupting 
Input 


Untype 


Delete 


STORING 
DATA IN 
VARIABLES 


If you type a line incorrectly and notice it before pressing RETURN (or ENTER), 
you can fix the mistake. The simplest thing to do is to “interrupt” your input. 
This causes the computer to ignore the entire line and return you to the six-space 
indent. To interrupt input, you press a key or key combination that sends a 
special signal to the computer. On the APL* PLUS System for the PC, you 

press CTRL-BREAK. Other APL systems use slightly different techniques; for 
example, the APL*PLUS System for the UNIX environment has an UNDO key. 
If you don’t know which key to use, refer to your system documentation or 
consult an experienced user. 


If you want to delete characters at the end of a line, you can use another technique. 
Hold down the BACKSPACE (UNTYPE) key until you have erased all the 
characters you want. Then you can type in the correct information, keeping the 
earlier part of the line. 


Another way to delete characters is by using the DELETE key, which is found on 
most personal computers. Use the cursor movement keys (usually located on the 
numeric pad) to move to the mistake, then press the DELETE key. The character 
above the cursor will be the one that is deleted. 


Take a few minutes to practice these techniques by typing in some long lines and 
making changes in them. You will find that these tricks come in handy later on. 


By now, you've learned that doing arithmetic in APL is similar to doing it on a 
desk calculator. Most calculators allow you to store data in one or more 
"memories." We saw in Chapter 1 that APL stores data in storage places 
(memories) called variables. We were able to read the data in the variables. 


In APL, you store data in a variable by "assigning" the data to a name. The 
left-pointing arrow (“assignment arrow") does this: 


NUMBER<1 


SALES-15.80 17.40 100.20 
GRADES<78 97 81 85 92 
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As we've seen, we can display the data stored in variables by entering their names: 


NUMBER 

1 
SALES 

15.80 17.40 100.20 
GRADES 


78 97 81 85 92 


Variable names can be made of letters and numbers. The name always begins 
with a letter. 


You can use variables just as you would use the numbers they contain. For 
example, suppose we wanted to find out how much the tax on three items sold 
(contained in SALE S) would be, with a 5% tax rate: 


SALESx.05 
0.79 0.87 5.01 


If we wanted to double our sales next month: 


2xSALES 
31.6 34.8 200.4 


Variables can be added to other variables as well (or subtracted, divided, and so on). 


NUMBER * SALES 
16.8 18.4 101.2 


Variables retain their values until we assign new data to them. 


NUMBER 
1 
NUMBER<2 
NUMBER + NUMBER 
4 
NUMBER 
2 
NUMBER-1 
NUMBER 
1 
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We can use a variable and reassign it in the same line: 


NUMBER-NUMBER*4 
NUMBER 


5 


APL provides a useful function to help us figure out how many numbers are in a 
variable. Use the symbol o (rho) with a variable name after it: 


pGRADES 


GRADES 
78 97 81 85 92 


This function is called “shape,” since it gives the shape of the variable (how many 
elements it contains). This may seem so easy that it is not needed. But you can 
store many numbers in an APL variable. In fact, you can keep adding numbers 
until the line is filled and the computer skips to the next line: 


SALES1-200 175 125.50 421.75 89 23 
304 89.95 256.72 78 21 78.23 75.21 
oSALES1 


13 


(In the example above, the computer may not have to jump to the next line for 
you if you're using a wide terminal, but you get the point.) 


Thousands of numbers can be stored in a variable. 
Another APL function useful for dealing with variables is "catenate." This 


function joins variables together to make one large variable. Comma (,) is the 
symbol used for catenation. Enter: 


SALES2-SALES,SALES1 
pSALES 
3 
pSALES1 
13 
pSALES2 
16 
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WORKING 
WITH TABLES 
OF NUMBERS 


Reshape 
Function 


SALES2 
15.8 17.4 100.2 200 175 125.5 421.75 89 23 304 
89.95 256.72 78 21 78.23 75.21 


ONE-1 
ITWO-ONE,ONE 
IWO 

1 1 
oTWO 

2 


You can see that shape (p) is very useful for counting the elements in a long 
vector produced using catenate. 


We've seen that both single numbers (scalars) and groups of numbers (vectors) can 
be used with arithmetic functions and that they can be assigned to variables. 
Another useful form for data is a table, such as the sales from different stores in 
different months. (Don’t enter the example below—it’s just for illustration.) 


Jan Feb Mar 
Elm St. Store 10000 11000 10525 
Lee Ave. Store 9000 9250 10000 
Pine Ln. Store 6000 6100 6125 
Ash St. Store 8250 10500 7500 


A "matrix" is a table of data like the numbers in this chart. It has two 
dimensions: rows (going across) and columns (going down). We can make a 
table in APL using our old friend rho (p) in a new way. Enter: 


STORESALES-4 3910000 11000 10525 
ene 9250 10000 6000 6100 6125 8250 10500 
0 


(Again, the computer may or may not skip to a new line for you as shown above, 
depending on the width of your terminal or screen.) 
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STORESALES 
10000 11000 10525 
9000 9250 10000 
6000 6100 6125 
8250 10500 7500 


The 4 3 on the left of p tells APL that we want a table (matrix) with 4 rows 
and 3 columns. We call ọ “reshape” when it's used with numbers on both the 
left and right sides. It reshapes the data on its right into the shape given on its 
left. We can use reshape to make vectors: 


Q—407 
Q 
7 7 7 7 
(This expression creates a vector with four elements.) We can also create matrices 
with only one column: 
R-3 195 10 15 
R 
5 


10 
15 


or with only one row: 
Z-1 4p7 
Z 
7 7 7 7l 
Z looks exactly the same as a vector, but it has different shape: 
pZ 
pQ 


1 4 
4 


As you can tell from the example above, the shape function (rho with data on the 
right side only) also works with matrices: 


oSTORESALES 
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Asking for the shape of a matrix tells us how many rows (4) and how many 
columns (3) the matrix has. 


Let's use our new-found skill with matrices to do a little more arithmetic. Let's 
say we have a matrix of salaries of salesmen at three stores: 


Emp 1 Emp 2 Emp 3 
Store 1 18000 17500 16500 
Store 2 19000 21000 20000 
Store 3 20000 17500 19500 


In APL, we enter: 


SAL-3 3018000 17500 16500 19000 
21000 20000 20000 17500 19500 


How much will they get if they receive a 15% bonus? Enter: 


BONUS-SALx.15 
BONUS 

2700 2625 2475 

2850 3150 3000 

3000 2655 2925 


What if we need to subtract (heaven forbid!) $500 from each salary? 


SAL-500 
17500 17000 16000 
18500 20500 19500 
19500 17000 19000 


We can see that our arithmetic functions use matrices and scalars together. This 


means the functions are even more powerful than we thought. Again, the single 
number is used with each element of the matrix. 
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However, using the arithmetic function you’ ve learned so far, matrices and vectors 
cannot be combined: 


SAL+8 9 7 

RANK ERROR 
SAL*8 9 7 

^ 


The rank (or number of dimensions as shown in the shape) is not the same. The 
problem is that such statements are ambiguous. Do we want to add 8 to all the 
numbers in the first row or to all the numbers in the first column? Since the 
statement can't be executed, APL tells you why. 


Matrices can be used with other matrices, however, if they are the same size 
(shape). If we want to find the total salaries for the year for our employees, 
including the 15% bonus: 


SAL*BONUS 
20700 20125 18975 
21850 24150 23000 
23000 20125 22425 


You're probably wondering why we were able to use the rho symbol (p) to do 
two different things. At the beginning of the chapter, we used it by itself with a 
variable on its right: 


pSALES2 
16 


Later, we used it with numbers on its right and left: 


4 1p12 3 4 
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In APL terminology, the things (data) that appear to the left and right of a 
function are called "arguments." We have learned that o can be used with one 
argument (in particular, a right argument) or with two arguments (left and right 
arguments). Many APL symbols may be used this way. Another way of 
expressing this is that they can be either “monadic” (having one argument) or 
"dyadic" (having two arguments). They have different results in each case. 


The following table is a summary of the rules for combining scalars, vectors, and 
matrices using the arithmetic functions we've learned so far. In the table, “fn” 
stands for any of the arithmetic functions (+, -, +, x)andthe arrow (<) 
identifies the result of the operation. For example, “scalar < scalar fn scalar" 
means that when you use any of these functions with two scalars, the result will 
be a scalar too. 


Rules for Combining Scalars, Vectors, and Matrices 


Left Right 
Result Argument Argument 
scalar <- scalar fn scalar 
vector = scalar fn vector 
vector < vector fn scalar 
vector i vector fn vector 
matrix - scalar fn matrix 
matrix - matrix fn scalar 
matrix « matrix fn matrix 


Many of the functions we will learn in the following chapters also obey these 
rules. 


Before you go on to the next section, you may want to save (store) the variables 
you've created so far so you can use them later. To do this, enter: 


)SAVE MYWORK 


If you are using a personal computer and you get a DI SK FULL or similar error 
message when you use this command, try inserting a blank, formatted disk in the 
disk drive. Then enter the command again. 
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When you sign on next time, you can retrieve your work by entering: 


)LOAD MYWORK 


If you are using a personal computer, be sure that the correct disk is in the disk 
drive. | 


Remember that you can list the variables by entering: 
)VARS 


1. APL uses the familiar arithmetic functions very much like we would use them 
by hand or with a calculator. 


2. Oneexception is that APL uses a consistent order of executing functions on a 
line: always right to left. You can change the order by using parentheses to 
enclose those operations you want done first. 


3. APL uses its own symbols to perform other operations. We learned about 
three symbols: the left arrow (+), rho (p), and comma ( , ). 


a. Theleft-pointing arrow stores numbers by "assigning" them to a name. 
Scalars, vectors, and matrices can all be assigned to variables. 


b. The rho symbol (pọ) can be used two ways: 


* to measure the size of something (shape) 
* to create a matrix or vector (reshape) 


c. Thecomma is used to join (catenate) variables together. 
4. Many APL symbols serve two purposes. These symbols can be used with a 


right argument only (that is, data on the right side only) or with both left and 
right arguments (data on both sides of the function symbol). 
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Now it’s time for some practice problems. Try to figure out in advance what the 
answer to each problem is. Then enter the problem into the computer and see 
what happens. Answers are given in Appendix A. If you miss a lot of the 
answers at first, don’t worry. Things will become much clearer as you continue 
to practice. | 


Some of the exercises will result in error messages rather than actual answers. 
Explanations of these messages appear in Appendix A along with the solutions. 


EXERCISES VA. 1. 3+1 2 3 7. 372 13. 5(2*6) 
2. 6+2 8.7 4 5-2 14. 4*1 2 
3. 2-4 9. 10+0 15. -78 
4. 3x2 4 10. 5x2+6 16. 4*2x1*-*1 
5. 3 3x2 4 11. 4 6+3 5 7 
6. 4* 12. (5x2)+6 


JB. Create three variables as shown below: 
A+2 
B-1 4 7 
C-2 3900 123 4 5 


Use these variables to do the exercises in this section. 


1. A+A 5. C+C 9. 2 4-B 
2. A+B 6. B+C 10. 2xB 
3. A*C 7. 4+C 

4. B+B 8.9 10 11-B 


/C. Use the following variables for the problems in this section: 


V1-0 0 1 

V2-1 2 3 4 

V3-2 1 
1l. oV1 5. pV1,5 9. V3oV1 
2. oV2 6. V2*V1,5 10. 5,V1 
3. pV1,V2 7. 394 
4. V1,5 8. 3 3pV3 





25 


APL Is Easy! 








VL 


J3. 


You are at the grocery store and you buy the following items: 


* 12 potatoes at 20 cents apiece 
e 6 pears at 30 cents apiece 
e 2 avocados at 50 cents apiece 


Write an APL expression using two vectors to calculate the total cost of 
each item. 


. Write an APL expression to find the yearly interest on four savings 


accounts, given annual interest rates of 5%, 5.25%, 5.5%, and 6%. 
The four accounts contain $600, $700, $1000, and $950, respectively. 
(HINT: .05 is the same as 5%.) 


To find the grades for students who scored 48, 39, 41, and 35 out of a 
possible 55 points, use the following expression: 


100x48 39 41 35755 


The division part of the expression turns the grades into a ratio, and 
multiplying the ratios by 100 turns them into percentages. 


Write an APL expression to find the percentage grades for students who 
scored 142, 167, 161, and 128 points out of a possible 175 points. 


. Write an APL expression to find the tax due on a taxable income of 


$7216. Assume the tax is $2116 plus 2596 of the amount of taxable 
income which exceeds $6000. 


. Your store sells hammers, wood, and nails. Last week, you sold 12 


hammers, 9 pieces of wood and 3 nails; this week you sold 11, 12, and 6 
items. Store this data in one matrix with one row for each week. The 
prices for the three items were 3.25, 1.79, and 2.55 last week, but this 
week you raised them to 3.45, 1.85, and 2.75. Store this data in a second 
matrix. Now write an APL expression which calculates the total sales 
revenue by item for both weeks. 
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6. The vector GRADES contains students’ grades from last semester (90, 
82, 79, 92). Put the grades for this semester's students (93, 87, 80, 90, 
78, 85) into the variable GRADE S without losing last semester's grades. 
(HINT: Introduce a new variable OLDGRADE S.) 


7. You are the manager of a small store and you take inventory at the end 
of the month. You store the number of items in inventory in a variable 
named QUANT: | 


QUANT-210 51 34 27 


You store the cost of a single unit of each item in the variable COST: 


COST-2.25 15.17 20.72 5.75 


Write an APL expression that calculates the cost of inventory and assigns 
it to a variable named INVCOST. 
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In this chapter, you will learn: 


how words and sentences are handled and stored using APL 

how to use the APL functions “maximum” and “minimum” 

how to use the APL functions "plus reduction" and "plus scan" to total 
numbers and produce a running total 

* how to pick out single elements of stored data using the APL function “index” 
* how to produce strings of numbers using the APL functions "count" and “roll” 


Learning about these functions will help you to do some useful things with bank 
balances, such as getting APL to: 


* find the ending balance 
* keep a running total of deposits and withdrawals 
* find the largest and smallest deposits and withdrawals 


So far, we've only dealt with numbers. Numbers are known as "numeric data" in 
computer jargon. One of the special powers of APL is that it can work with 
words and sentences as well. In this capacity, APL is similar to a word processor 
rather than to a desk calculator. Letters, symbols, words, and sentences are known 
as "character data" in APL. 


In APL, character data is distinguished from numeric data by enclosing the 
characters in ‘single quotes.’ The single quote is usually found on the K key on 
an APL keyboard, as a combination with SHIFT, OPTION, or ALT. Enter: 


"HELLO! 
HELLO 


Anything you put inside single quotes will be displayed by the system exactly as 
you entered it. 
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Thus, we can learn the shape of a group of characters: 


p' HELLO' 


Blanks are also considered elements. 


p'HI THERE! 
o'r Spy! 


(In the second example, we purposely left two blanks in between the two words.) 


Special APL characters can also be used as character data. On most APL systems, 
you press the SHIFT key to produce some: 


Ikk AAA! 
* * * AAA 

'“WHAT WAS THAT?"' 
"WHAT WAS THAT?" 


“open quote" If you type only one quote, APL considers it an "open quote" error. Different 
error APL systems react differently to this error; however, most catch the error and 
refuse to go on until you correct it. To correct the error, you can usually: 


e interrupt the system; for example, press CTRL-BREAK, UNDO, or 
COMMAND-PERIOD 
* type a second quote and press ENTER 


using quotes in If you want to include a single quote as a character in a sentence, double it. 
character data 
'WHAT''S UP?! 
WHAT'S UP? 
' DON''T SAY AIN''T.' 
DON'T SAY AIN'T. 


APL translates the two quote marks back to a single one. The general rule is that 
you must have an even number of quotes in a line to avoid the “open quote” 
problem. 
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with character 
data 


Digits can also be used as character data. 
! 7 3 ! 
! 1 + 1 ! 


73 
1+1 


If you use digits as character data though, they cannot be used to do arithmetic. 
APL does not treat them as numbers. 


3+ ! 8! 
DOMAIN ERROR 
3+'8! 


A 


You get a DOMAIN ERROR report, because it’s not in the “domain” of the plus 
function to add numbers to characters. Remember, only numbers and numbers can 
be added together. Entering 3 * ' 8 ' is just like entering 3+ ! « '—it’s a 
meaningless statement. You can enter something like: 


"4x12! 
4x12 


because everything between the quotes is considered character data, even the times 
sign. 


Groups of characters in a line, such as the ones we’ve been entering, are called 
“character vectors.” 


Character vectors can be assigned to variables just like numeric vectors. 


MESSAGE-'HELLO, WORLD. '! 
MESSAGE 
HELLO, WORLD. 
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Character vectors can be jcined together with other character vectors using the 
catenate function: 


PART1-'HELLO. ' 
PART2<'WHAT''S YOUR NAME?! 
PART1,PART2 

HELLO.  WHAT'S YOUR NAME? 


In most systems, character vectors can't be connected directly to numbers: 


'THE TOTAL IS ',27 
DOMAIN ERROR 
'THE TOTAL IS !',27 


^ 


Just as it wasn't in the domain of the plus function to add numbers and characters, 
it isn't in the domain of the catenate function to combine numbers and characters. 
But we can join the data after converting the number to character data using a 
function called “format.” The symbol for format is *. (It’s usually found on the 
single/double quote key; you generally type it as a combination with SHIFT, 
ALT, or OPTION.) The effect of the format function is to turn numbers into 
characters; they can then be catenated to other characters. Let's try: 


'THE TOTAL IS ',%27 
IHE TOTAL IS 27 


Character data can be reshaped by our old friend o. to form character matrices. 


IEXT-3 3p'HOWAREYOU' 


TEXT 

HOW 

ARE 

YOU 
ANSWER-2 6p'FINE, THANKS! 
ANSWER 

FINE, 

IHANKS 
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MAXIMUM 


Notice that you have to count out the characters and insert blanks in the proper 
places so that shorter lines will have blanks at the end. If you don't, the shorter 
lines will be filled with data you meant to appear on the next line. 


NAMES-3 Ap'JILLJIMBOB' 
NAMES 

JILL 

JIMB 

OBJI 


You've told APL to create a “box” of characters, three characters high and four 
characters across, but you've only given it ten characters to work with. So it uses 
characters in groups of four (such as JILL and JIMB). When it reaches the end 
of the string, it goes back to the beginning to complete your request. The OBJ IT 
in row 3 is composed of the OB from the end of the string and the JI repeated 
from the beginning of the string. 


We can fix our names list by inserting some blanks: 


NAMES-3 Ap'JILLJIM BOB ' 
NAMES 

JILL 

JIM 

BOB 


We'll do more with character data in the Indexing section of this chapter and in 
Chapter 4. 


The “maximum” function chooses the larger of two numbers. In particular, it 
compares the number on its right side to the number on its left side to see which 
is larger. The APL symbol for maximum is f , usually found on the S key. 


Enter: 

8[ 10 
10 

2.1f2 
2.1 
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and matrices 


Like all APL functions, it works with data stored in variables: 


ONE-1 

TWO-2 

ONET TWO 
2 


APL looks at the values stored in the variables to see which is larger; then it 
displays the larger value. 


As you probably guessed, the result of maximum can be stored in a variable. 
(This is true of all built-in APL language functions.) 


B-7T19 
B 
19 


The examples below clearly show that maximum obeys the rules laid out in the 
chart at the end of Chapter 2. 


173 10 6 
6 
563 176 8 2 .5 


1 
TABLE-2 3012 34 5 6 
TABLE 


3 11 
6 8 3 


3T TABLE 


Aa Go A e 
Cn Ge Cn DO 
O» Go Oo» Co 


Let's do something practical with this function. Suppose you have a number of 
orders for warehouse items: 


ORDERS-2.71 3.25 10.17 7.32 3.05 1.79 
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You've set the minimum purchase at $3.00, however. So you write an APL 
statement that will give you the greater of $3.00 or the amount of the order. 


BILL-3TORDERS 
BILL 
3 3.25 10.17 7.32 3.05 3 


The minimum function compares two numbers and takes the smaller of the two. 
The symbol for minimum is L, usually found on the D key. The shapes of the 
symbols make it easy to remember which is which (T means larger, L means 
smaller). Enter: 


8L10 
13 414 32 
3LTABLE 
1 2 3 
dou 3 
You could use this function if you had a number of orders for units of a discounted 
item, but you had set a limit of 10 items per customer. 


DISCORDERS-12 15 7 9 17 
DELIVER-10l1DISCORDERS 
DELIVER 

10 10 7 9 10 


What if we wanted to find the largest number in a string of numbers? We could 
enter: 


10rT12T2T72T16 
72 


This is rather time-consuming though. So APL provides a quick and easy way to 
do the same thing: 


[/10 12 2 72 16 
72 
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All we did was combine the maximum symbol with a slash, and this had the same 
effect as inserting the symbol in between each pair of numbers. We call this 
"reduction," and since it's used here with the maximum function, its full name is 
"maximum reduction." Reduction can be used with variables: 


[/ORDERS 
[/DISCORDERS 


10 
17 


Reduction works with other functions as well. Enter: 


+/2 3 4 
9 


What happened? Again, it's the same as entering 


2+3+4 
9 


We can also use reduction with multiplication: 


x/2 3 A 
24 


And, of course, with minimum: 


L/DISCORDERS 
7 


Actually, you can use reduction with any of the arithmetic functions we've learned 
so far. For right now though, the most important ones for you to know about are 
plus reduction, maximum reduction, and minimum reduction. 


What about using reduction on a matrix? Let's try it on our variable TABLE. 


TABLE 

3 

6 
+/TABLE 


1 2 
4 5 
6 15 





+ 895) 0j ? 
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reduction 
across the 
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What happened? It did work; APL didn’t reject it. What APL did was add the 
numbers along the rows: 


6 


+ 2 
+ 9 15 


1 * 3 
4 + 6 


We can make APL add up the numbers along the columns by entering a statement 


like this: 


*/LI1]TABLE 
5 7 9 


This works because in our first example, APL added up the numbers along the /ast 
dimension (the columns), producing one answer for each row. Now, we're asking 
APL to add up the numbers along the first dimension (the rows) to produce one 
answer for each column. This is the meaning of [1] in the statement. You can 
also write +/ [2] TABLE to get APL to add along the rows: 


*/[I2]TABLE 
6 15 


But that's really just extra (and unnecessary) typing, since the system assumes 
you mean the /ast dimension if you don't specify a dimension. 


How would we find the grand total of the numbers in a table? The statement 


+/TABLE 
6 15 


gives us the result of adding up the two rows, so we could get the grand total by 
adding those: 


+/6 15 
21 
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INDEXING 


But we can do this all in one statement by writing: 


+/+/TABLE 
21 


So now we know how to find a grand total for the numbers in a vector or a 
matrix. What if we want to find a running total, though, such as for a 
checkbook? APL provides “scan,” something similar to reduction, for this 
purpose. Its symbol is the “backslash” (X). Enter: 


ORDERS 

2.11 3.25 10.17 7.32 3.05 1.79 
*NORDERS 

2.71 5.96 16.13 23.45 26.5 28.29 


The result of this function shows the first number in the vector, then the sum of 
the first and second numbers, then the sum of the first, second, and third, and so 
on. The last number in the result (28.29) is the grand total —the same thing we 
get with +/ORDERS. 


+/ORDERS 
28.29 


You probably guessed that you can use scan with other functions, just like 
reduction: 


x\2 3 4 
2 6 24 


Scan can also be used with maximum, minimum, and other functions, but “plus 
scan" is the most useful for us to know at this point. 


Let's forget about arithmetic for a moment and think about our stored data. What 
if we wanted to find the third element in DI SCORDERS without having to 
count? APL provides a handy function for this, called “index.” The symbols used 
for index are the left and right brackets ( [ and 1). The position of the element 
you're interested in (which could also be called the “index” of the element) goes in 
between the two brackets. Enter: 
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Using Index 
with Variables 


Replacing 
Individual 
Elements 


DISCORDERS 
12 15 7 9 17 
; DISCORDERSI3] 


Remember, variables can hold hundreds or even thousands of elements, so this 
function can really be useful. 


Indexing also works with a vector of numbers: 


ORDERST1 3 51] 
2.11 10.Ll7.$.05 


Indices can be duplicates: 


ORDERSI2 2 2] 
3.25 3.25 3.25 


You can also use indexing to select the data in any order. 


VECT-9 10 11 
VECT 
9 10 11 
VECTI3 2 1] 
11 9 


As we might expect, the result of indexing can be assigned to a variable. 


BACKWARDS-VECTIS3 2 1] 


BACKWARDS 

11 10 9 
VECT 

9 10 11 
NUMBER<VECT([2] 
NUMBER 

10 


Notice that you can use indexing together with assignment to replace 
individual items in a vector: 


VECT 
9 10 11 
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VECT([2]<3.14 
VECT 


4 11 

VECTI3 11-22 ^44 
VECT 

744 3.14 22 


9.3.1 


What about finding a number in a matrix? Remember, we have two dimensions 
in a matrix. So we must tell APL both the row and the column we're looking 
for. 


TABLE 
2 3 
9 6 
TABLE (2;1] 
TABLE [1;1] 


1 
4 


1 


The first index is the number of the row; the second index is the number of the 
column. The two indices are separated by a semicolon (; ). 


You can also use more than one number when you’re indexing into a matrix. 
Enter: 


TABLEI1 2;1] 
1 4 


Here we looked at rows 1 and 2 and took the number in the first column of each. 
To get the first two rows and the first two columns: 


TABLET1 2;1 2] 
1 2 
4 5 
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If we leave out one of the indices, this means "select all of the numbers in the 
specified row or column." 


TABLEEIL1;]1] 
° TABLEL; 3] 
3 6 
Again, the results of these operations can be assigned to variables. 


LITTLETABLE-TABLE[1 2;1 2] 
LITTLETABLE 
1 2 
4 5 
You can also change individual elements of a matrix using indexing and 
assignment. 


TABLE[1;11-25 


TABLE 
25 2 3 
4 5 6 
TABLEI2;2 81-72 1.5 
TABLE 
25 2 3 
4 -2 1.5 


What happens when you ask for an element that's not there? That is, what if you 
ask for the seventh element of ORDERS, but there are only six elements in 
ORDERS? 


ORDERSI71 
INDEX ERROR 
ORDERS(7] 
A 


pORDERS 


APL won't accept the statement, but as usual, it displays a message pointing us 
to the problem—the index, in this case. 
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Indexing with 
Character Data 


COUNT 


You may not have thought of using indexing with character data, but it works 
with character data just as it does with numeric data. 


MSG-'HI THERE' 


MSGI1 2] 
HI 
MSGI5 6 71. 
HER 
NAMES-3 Ap'BILLJEANDAN ' 
NAMES 
BILL 
JEAN 
DAN 
NAMESI1 2;1] 
BJ 
NAMESL3;1 2 1 2] 
DADA 


It's often useful to be able to work with a group of numbers without having to 
type them all in yourself. APL provides a handy function called "count" that 
generates a string of consecutive whole numbers. Its symbolis 1 (iota). Let's 
see how it works: 


17 
1234567 
112 
123 45678 9 10 11 12 


This function starts at one and counts up to the number we say. Count doesn’t 
work with negative numbers or decimal numbers, though. 


174 
DOMAIN ERROR 
174 
^ 
19.7 
DOMAIN ERROR 
19.7 
^ 
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These types of numbers are not in the domain of count, that is, count is not 
defined for use with them. Almost any sequence of numbers can be created using 
iota, however. 


.5*14 
125 275. 3.5 4.5 
2x13 
246 
~5+16 
T4 73 72 71 0 1 


Count can also be very useful when combined with the index function. Suppose 
we want the first four elements of ORDER S. We can enter: 


ORDERS[1 2 3 4] 
25:41.3.29 10.17 74392 


But we can also enter: 


ORDERS[14] 
2.71 3.25 10.17 7.32 


You can see that this would save a lot of typing if we want the first 100 elements 
of a 1200-element vector! 


Sometimes it's useful to generate a list of random numbers instead of consecutive 
ones. The function “roll,” using the question mark symbol (7), generates a 
random number between 1 and the number you give it. 


710 
710 
76 6 


Ee ws) A 


5 


(Since roll generates random numbers, you will probably get different answers 
than those shown above.) The last example simulates the rolling of two 
dice—hence, the name of the function. Roll can also be combined with other 
number generators: 
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5 5 m Ou A 


i+ 3 
In the second example, reshape creates a matrix of 6s (using 3 206), then roll 
generates six random numbers, each between 1 and 6. 


Remember to store your variables if you want to use them later. If you're using a 
personal computer, be sure the correct disk is in the disk drive. Enter: 


)SAVE MYWORK 


You can use any name you wish instead of MYWO RK, as long as the name begins 
with a letter. The length of the name depends on the system; refer to your system 
documentation to find out how many letters your names can contain. 


After you've saved the lesson material from this chapter, enter ) CLEAR toget 
an empty workspace. Then do the exercises on the following pages. You may 
want to save your work for the exercises in a different place, by entering: 


)SAVE EXERCISE 


Remember, you can get your work back by entering 
)LOAD MYWORK 
Or 


LOAD EXERCISE 


[The name that you put after )LOAD will depend on the name you gave the 
workspace with the ) SAVE command.] 
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SUMMARY 


EXERCISES 


In this chapter, we learned that: 


l. 


In APL, character data is distinguished from numeric data by enclosing the 
character data in single quotes. Any character (letters, numbers, or special 
symbols) can be used in character vectors or character matrices. 


. Numbers can be converted to character data using the format function. The 


format symbol is F. 


. Character vectors can be joined using catenate ( , ). 


. Maximum and minimum are functions that compare two numbers and choose 


the larger (maximum) or smaller (minimum). The maximum symbol is [, 
and the minimum symbol is L. 


. Maximum, minimum, and the arithmetic functions can be combined with a 


slash (/) to form new functions called reductions. These functions have the 
same effect as placing a function symbol between each element of a vector or 
matrix. 


. Maximum, minimum, and the arithmetic functions can also be combined with 


the “backslash” (X) to form new functions called scans. When used with plus 
("plus scan"), the new function gives a running total. 


. Youcan select elements from a vector or matrix using indexing. Indexing is 


done with left and right brackets ( [ and 1). For a matrix, both the row and 
column number must be identified, and these numbers must be separated by a 
semicolon ( ; ). 


. You can produce a string of consecutive whole numbers using the count 


function (1), and you can produce random numbers with the roll function (7). 


1. Assign the characters ->f 4. to a variable named ARROWS. Then 
display the variable. 


- 2. Assign all the special APL characters to a variable called CHARS and 


display it. 


ae 
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Create a 3 by 5 character matrix called NUMBERS, where the first row 
contains the word ONE, the second contains TWO, and the third contains 
THREE. Remember, we form a character matrix like so: 


ALPH-2 2p'ABCD! 
ALPH 

AB 

CD 


Also, remember to use spaces where necessary to make each row of the 
matrix five characters long. 


Create a character matrix AL PH that looks like so: 


ALPH 


trj C3 C by o» 


Create a character vector by entering: 


Cy«' ! 


What do you expect its shape to be? Enter oCV to check. 
Enter the following: 


A-'CAN''T BE! 


What do you expect its shape to be? Enter pA to check. 


. Write an expression to find the fifth, second, and third elements of the 


vector A you created in Problem 6. All three letters should print 
together on the same line. 
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8. Define the following variables: 


Be-'BLUE' 
C-' BELL'! 
D-'JINGLE' 
Ec-'RINGER' 


What do you expect to see if you enter each of the following? 
B,C 
D.C 
CE 


Now, enter the above expressions and compare the results to your 
expectations. 


9. Enter the following: 


ALPH-'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 
SYMB-'avixo' 


a. Write an expression to return the 20th letter of the alphabet. 

b. Write an expression to return the fourth character in SYMB. 

c. Join ALPH and SYMB together. 

d. Take the shape of the two variables joined together. 

e. Write an expression to print the first 12 letters of the alphabet. 

f. Write an expression that returns three letters of the alphabet at random. 
(HINT: Use the roll function.) 


10. Enter the expression: 
1 0 p gx! 
What did you expect to see? 


11. Enter the expression: 


M-'THE NUMBER IS ' 


Now join M together with the number 20 on the same line. 
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J 12. Enter the expressions: 


P1-'YOU HAVE SPENT ' 
P2-' DOLLARS.' 


Write an expression that will produce the following display: 


YOU HAVE SPENT 10 DOLLARS. 
(HINT: Use parentheses around the +10 part.) 


“B. Enter the following expressions for use with the problems in Exercises B 
and C. 


Write down the answers you expect; then check your answers by entering the 
expressions into the computer. 


41. ATA 6. BIA 1. 4LD 
2. ALA 7. ALB 12. CFC 
3. 2L B 48. 8rC 13. CID 
4. 21B 9. 3rD /14. CLD 
5. AT B = 10. 4LC 


C. Use variables A, B, C, and D from Exercise B above for the following 
problems. Again, write down the answers you expect; then check your 
answers by entering the expressions in the computer. 


4l. +/A 46. L/A 11. «/*/C 
2. +/B 7. T/C J/12. +/+/D 
3. «/C 8. L/D 13. F/T/C 
4. +/D /9, +/£11 C 14. L/L/D 
5. [/B 10. */ [11D 
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D. Assign the following vector of bank transactions to the variable 


TRANSACT: 


TRANSACT-153.17 720.00 17.00 735.75 
27.55 12.25 


This is a record of your bank transactions for a month. Positive numbers are 
deposits; negative numbers are checks or withdrawals. Use this variable in 
the following exercises. 


1. Write an expression to find the third transaction you made this month. 


2. Write an expression to find the ending balance for your checking account 
for this month. (Assume that the beginning balance for the month was 
$0.00.) l 


3. Write an expression that shows the running balance of your account 
during the month. 


4. Write an expression to subtract the last transaction from the first. 
5. Your account is a NOW account that earns 5% interest, computed 
monthly, based on the ending balance. Write an expression that shows 


how much interest you earned this month. 


You have stored your bank deposits and withdrawals for another account in 
two separate variables. 


DEPOSITS-120 25 115 375 800.12 22 75 
82.72 
WITHDRAWALS-35 100 220 175 372.12 15 


1. Write an APL expression to show how many deposits you made. 
2. Write an APL expression to find the ending balance of the account. 


3. Wirite an expression to add a new deposit of $450 to the end of the vector 
DEPOSITS. 
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Write expressions to find the largest and smallest deposits. 
Write expressions to find the largest and smallest withdrawals. 


Write an expression to subtract the largest withdrawal from 
the largest deposit. 


Write an expression to pick out the first, third, and fifth deposits. 


Write an expression to find the first five withdrawals. 


Enter the expression: 


Z-4 4p'HOW CAN THATBE? ! 


Be sure to include the blanks as shown. 


l. 


Display Z. 


42. Write an expression to pick out the first three letters of the first row. 


3. 


4/4 


4/5. 


/6. 


Write an expression to find the second, third, and fourth letters in the 
third row. 


. Write an expression that will cause only the question mark from Z to be 


printed. 


Write an expression that will print the question mark from Z three 
times. 


Write an expression that chooses a letter at random from the first column. 


Write an expression that chooses a letter at random from the second row. 
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AN 
EXPRESSION 
FOR 
SELECTING 
DATA 


In this chapter, you will learn about a powerful set of tools to analyze data and 
select data from vectors and matrices. By the end of this chapter, you will be able 
to use these tools to answer many questions about your data, such as: 


* Did I write any checks over $20 this month? 
* How many? 

* What were the amounts of those checks? 

* What is the total amount of those checks? 


In Chapter 3, you learned how to do a lot of things with your data, like totaling it 
up or picking out individual pieces of data. Now we're going to learn how to pick 
out pieces of the data that meet certain requirements. 


Using indexing, you already know how to choose elements of a vector or matrix if 
you know their positions. But we're also interested in choosing elements that 
have certain qualities without knowing their positions. For example, with a vector 
of deposits: 


DEP-85 125 60 45 89 
we might be interested in all the deposits larger than $80. 
The APL expression for finding the deposits larger than 80 is 


(DEP>80)/DEP 
85 125 89 


Deposits less than 80 would be 


(DEP<80)/DEP 
60 45 


Notice that the two expressions are basically the same—all that changed was the 
“greater than” (>), “less than” (<) part. 
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Let’s take these expressions apart and see how they work. The left-most parts 
look pretty familiar—they use the “less than” (<) and “greater than” (>) signs we 
learned in school. These symbols are usually found on the 3 and 7 keys. 


Although the left-most parts of the expressions may look familiar to you, their 
results may surprise you. Enter: 


DEP>80 


The 1s and Os mean “true” and “false,” or “yes” and "no." If you look at DEP, 
you'll see that the 1s match up with (correspond to) the things we're looking 
for—the deposits greater than (or less than) $80. 


DEP 
85 125 60 45 89 
DEP>80 
11001 


Compression The Os and 1s that result from the DEP>80 and DEP<80 expressions are 

NN ae used by the “slash” (/) to select the numbers we want from the original vector 
DEP. We call this function “compression.” It "keeps" the numbers in DEP 
that correspond to 1s, and “leaves out” the numbers that correspond to Os. Enter: 


100 0 O/DEP 
0000 1/DEP 


85 
89 


These expressions chose the first and last elements of DE P. Now let's enter the 
Os and 1s we got by executing DEP>80: 


1100 1/DEP 
85 125 89 


And that's that. The only thing we haven't explained is the parentheses in the 
expression. They're necessary to make sure DEP»80 gets executed first, so 
that compression has the Os and 1s it needs to work with. By the way, 
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compression needs an equal number of numbers on either side of the slash. So if 
you forgot a 0 or 1 in the examples above, you probably got a LENGTH 
ERROR: 


10 0 O/DEP 
LENGTH ERROR 
100 O/DEP 
^ 


If you use a “selection expression" (such as DEP » 80) though, you can never go 
wrong. It always provides as many Os and 1s as there are numbers in the 
vector—provided that you remember to put in the parentheses. 


Our expression also works with < (less than or equal to), = (equals), 2 (greater 
than or equal to), and # (not equal). All of these are called “relational functions,” 
since they show a relationship. The symbols are usually found on the 4, 5, 6, and 
8 keys, respectively. Enter: 


(DEP=60)/DEP 


(DEP#60)/DEP 
85 125 45 89 

(DEP260)/DEP 
85 125 60 89 

(DEP<60)/DEP 
60 45 


60 


Selection expressions also work with character data, but only using equals (=) and 
not equal (#). Enter: 


TEXT-'THIS SENTENCE HAS NO BLANKS.' 
(^ 'ZTEXTO/TEXT 
THISSENTENCEHASNOBLANKS. 


In the example above, ' '#TEXT produces 0s for blanks and 1s for everything 
else. The 1s are then used to select all nonblank characters. 


(! PEAR' Z' BEAR! )/ ' BEAR! 


ST—'***S*k*T**AxxRxxSkkx! 
(ST£!*!')/ST 
STARS 


EAR 


22 
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If you have trouble understanding how these expressions work, enter just the part 
inside the parentheses. The result will be a string of Os and 1s. Compare the 
string with the vector that's being compressed and you'll see that the 1s match up 
with each letter that's "kept" when you execute the entire expression. 


No relational functions other than = and £ can be used with character data. 


'PEAR'>'BEAR' 
DOMAIN ERROR 

'PEAR'>'BEAR' 

A 

We might also be interested in the number of deposits greater than $80. The 
expression DEP»80 produces a list of Os and 1s (1s corresponding to the 
deposits greater than $80). The number of the deposits greater than $80 can easily 
be found by adding the 1s in the list using plus reduction. Enter: 


+/DEP>80 
3 


This approach works equally well with other relational functions. 


i +/DEP=60 (number of deposits equal to $60) 


; +/DEP220 (number of deposits greater than or equal to $20) 


We can also use plus reduction in this way to find out how many I’s there are in 
the word MISSISSIPPI: 


, +/'I'='MISSISSIPPI' 


To find the number of blanks in a sentence, enter: 


B WAS THE BEST OF TIMES.' 
+ 
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MEETING TWO 
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And 


You might also want to select data that meets two requirements. That is, instead 
of just finding deposits greater than $80, you might want to find deposits greater 
than $80 but less than $100. 


APL provides the function “and” (^) for this purpose. Enter: 


CCDEP»800^DEP«100)/DEP 
85 


In words, we say we want "deposits greater than $80 and less than $100"; the APL 
function “and” does this for us. "And" works by comparing Os and 1s. Only 
where 1s occur in both lists (that is, where both conditions are met) does it give 

us a 1. Enter: 


0 1^0 O0 
0 0 
O 1^1 1 
0 1 
0011^010 1 
0001 


Since both DEP>80 and DEP<100 produce lists of Os and 1s, “and” can use 
these results to find the elements of DE P that meet both requirements. Enter: 


DEP»80 


11001^10111 
10001 

DEP 
85 125 60 45 89 


"Or" is a function related to “and.” It chooses data that meets either of two 
requirements. In words, we say we want "deposits larger than $120 or less than 
$75." The “or” function (v) does this for us. Enter: 


(CDEP>120)VDEP<75)/DEP 
125 60 45 
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CHECKING 
ALL OF 
THE DATA 


And Reduction 


“Or” also compares Os and 1s. It produces a 1 if either condition is met. Enter: 
0 1v0 0 
001 1v0 101 


1 
DEP>120 
1000 
DEP<75 


0 

0 1 

0 
00110 
0 

8 


01000v00110 
1110 

DEP 
5 125 60 45 89 


“And” and "or" can both be combined with a slash to form “and reduction" and “or 
reduction." These functions are handy for finding out whether any or all of the 
data meet certain requirements. 


For example, given a vector containing salary data: 


SAL-21000 18000 54000 24000 17000 20000 
29500 


do all of the salaries exceed $12,000? 


A/SAL>12000 
1 


The answer is yes. Let’s look at this expression in two pieces to see what’s 
happening. The right-most part finds out whether the elements of SAL are 
greater than 12000: 


SAL>12000 
1111111 


Then the “and reduction" (^ /) part checks to see whether ALL of the salaries are 
greater than $12,000 (that is, whether the results of SAL>12000 are all 1s): 


^/111111 1 
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Let'slookat SAL again: 


SAL 
21000 18000 54000 24000 17000 20000 29500 


If we ask whether every salary is larger than $17,000, we get one O in the result: 


SAL>17000 
1111011 


If we check this result with “and reduction," we get a 0 since at least one of the 
salaries is not greater than $17,000. 


A/1 1 1 10 1 1 
0 


In other words, just one false result makes the entire result false. 


We can use “or reduction" to find out if any of the data meets a requirement. For 
example, does anyone in our group have a salary larger than $50,000? 


V/SAL>50000 
1 


Going back to our deposits example, are any of our deposits larger than $150? 


V/DEP>150 


DEP 
85 125 60 45 89 


Compression works a bit differently with matrices. Remember that a matrix has 
two dimensions (or coordinates), meaning that an operation can be carried out 
either along the rows dimension or along the columns dimension. With that in 
mind, let’s give it a try and see what happens. 
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MAT<4 49116 
MAT 


FP [| 


5 16 


compressing It's clear that APL compressed MAT by removing entire columns of 

columns numbers—to be precise, the first and third columns. That is, it compressed the 
second dimension of MAT (the columns), as we saw before with reduction in 
Chapter 3. 


compressing To get APL to compress the first dimension (the rows), we do the same thing we 
rows did for reduction—add [1] to the expression. 


010 1/[11MAT 
5 6 7 8 
13 14 15 16 


The first and third rows were compressed out, exactly as we wanted. This also 
works with character matrices: 


CHARMAT-3 3p'CATRATBAT' 


CHARMAT 
CAT 
RAT 
BAT 
O O 1/01 JCHARMAT 
BAT 
0 0 1/CHARMAT 
T 
T 
T 
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length 
restrictions for 
compressing 
matrices 


using vectors 
as keys for 
compressing 
matrices 


Notice that the left argument to compress must be a vector. The length of the 
vector must match the length of the dimension that the vector is compressing. 
That is, if you’re compressing the columns’ dimension, and there are five 
columns, then the compression vector should contain five Os and 1s. 


We can use a vector as a "key" to a matrix, and do our searching on the vector. 
Then we use the result of the search to compress the matrix. Let's look at an 
example. 


Suppose we have a vector of salesman numbers for four salesmen: 


SALESMEN-101 112 126 128 
We also have a matrix of sales data: 


SALES-4 391075 3023 4010 2075 750 
1189 2211 3117 2288 2779 1077 1928 
SALES 
1075 3023 4010 
2075 750 1189 
2211 3117 2288 
27/79 1077 1928 


We've set up the matrix so that each row corresponds to one salesman's revenues 
for the first three months of the year. In other words, row 1 corresponds to 
salesman 101, row 2 corresponds to salesman 112, and so on. Now, if we want 
to find out where salesman 101 is located in the vector SALE SMEN, we enter: 


SALESMEN-101 
1 0 0 


And if we want to look at his sales, we enter: 


100 O/L1II]SALES 
1075 3023 4010 


which is the same as entering: 


(SALESMEN=101)/[1] SALES 
1075 3023 4010 
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Since there's a perfect match between the rows of SALES and the elements of 
SALESMEN, wecan compress SALES using a vector of Os and 1s that we get 
from SALE SMEN using our selection expression. Let's follow through with 
our example. Create a character matrix containing our salesmen's addresses so 
that it looks like so: 


ADDRESS-4 160'21 ELM STREET 9107 
MAIN STREET52 NORTH ROAD 1717 IOWA 
AVENUE! 

ADDRESS 
21 ELM STREET 
5107 MAIN STREET 
52 NORTH ROAD 
1717 IOWA AVENUE 


We can find the address for salesman 101 using the same formula: 


(SALESMEN=101)/C1] ADDRESS 
21 ELM STREET 


And if we have the salesmen’s ages stored in AGE S: 


AGES-39 28 47 35 


we can find salesman 101's age the same way. 
(SALESMEN=101)/AGES 

We could go on and on like this, but you get the point—SALE SMEN isthe 

key to all the other stored data. 

Let's look at one more aspect of this. Remember that the columns of SALES 

represent sales in the first, second, and third months. If we store the numbers of 


the months in a variable MONTH: 
MONTH-1 2 3 


we can select the sales data for a particular month: 
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SUMMARY 





4010 
1189 
2288 
1928 


1075 
2075 
2211 
2179 


(MONTH=3)/SALES 


SALES 
3023 4010 
750 1189 
3117 2288 
1077 1928 


Putting the two pieces together, we can find the sales for salesman 101 during 


month 3: 


4010 


(MONTH=3)/ (SALESMEN=101)/011] SALES 


(SALESMEN=101)/C1]SALES picks out the row with salesman 101’s 
sales, and MONT H=3 selects the third number in the row. 


Whew! That's probably enough for one chapter. Time to store our work—with 
the command ) SAVE MYWORK—and move on to some exercises. 


1. Variations of the expression (DEP>80)/DEP can be used to select 
pieces of data that meet certain requirements. Expressions of this form 
combine a relational function (<, <, =, 2, >, #) withthe 
compression function (/). 


2. Variations of the expression +/DEP>80 can be used to determine how 
many items meet a certain requirement. 


3. Variations of the expression ((DEP>80)ADEP<100)/DEP canbe 
used to select data items that meet two requirements. This expression uses the 
"and" function (^). 


4. Variations of the expression ((DEP>120)VDEP<75)/DEP can be 
used to select data items that meet either of two conditions. This expression 
uses the “or” function (Y). 


EXERCISES 


Selecting and Analyzing Data 


5. Variations of the expression ^ /SAL>17000 tell us whether all of the data 
meet a certain requirement. This expression uses the "and reduction" function 
(^/). 


6. Variations of the expression V / SAL» 50000 tell us whether any of the data 
items meet a certain requirement. This expression uses the "or reduction" 
function (Y /). 


7. Vectors can be used as "keys" to select data from matrices or from other 
vectors, using the selection expressions described in points 1-4. 


jd 


^A. X. Write an APL expression to count the number of Es in TENNESSEE. 


Enter the vector of bank transactions TRANSACT. 


TRANSACT-180 725.25 ~40.89 87.12 
237.25 "127.27 39.45 


Write an expression to count the number of withdrawals (negative 
numbers). 


. For the vector TRANSACT shown in Problem 2, write an expression to 


count the deposits (positive numbers). 


. Write an APL expression to count the number of blanks in the following 


sentence: 


S«'TO BE OR NOT TO BE, THAT IS THE 
QUESTION' 


5. Enter the following vector of sales figures: 


SALES-757 212 358 821 375 115 837 
227 706 


Write an expression to count the number of sales that are less than or equal 
to $375. 





61 


APL Is Easy! 





j B. 
an 


Cs 
L- 


Use the following variable, which contains the account balances for our 10 
main customers, to work the exercises in this section. 


ACCOUNTS+135 27 715 12 725 ^57 240 172 
18 29 


Write APL expressions to answer the questions listed below. 

1. Do all the accounts have positive balances? 

2. How many have negative balances? 

3. How many have positive balances? 

4. Are there any accounts greater than $200? How many? 

5. Are there any accounts between $120 and $175? How many? 

6. Whatis the grand total of the accounts with negative balances? (HINT: 


Use compression to find the negative balances, then add them up with plus 
reduction.) 


7 7. Whatis the grand total of the accounts with positive balances? 


. Use the following price information to work the exercises in this section. 


PRICES-1.79 5.21 10.77 30.29 18.95 
19.95 3.07 2.15 


1. Write an expression to select the prices larger than $15.00. 

2. Write an expression to select the prices less than or equal to $3.07. 

3. Write an expression to select any prices equal to $17.75. 

4. Write an expression to select prices larger than $10 but smaller than $20. 


5. Write an expression to select numbers either less than $2 or greater 
than $30. 
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D. Use the following variables to work the exercises in this section. 


Ji 
du A-3 3019 

A 
123 
4 56 
789 

CM+3 3p'MOEJOETOE' 

CM 
MOE 
JOE 
TOE 

| s% 

L0 0 324. >“ 4.0 1 0/t11A *' 
2. 0 1 1/CM = pod 5.0 0 1/0 1 O/[11A+ e 
3. 1 0 0/L110H ; ^, 6. 0 0 0 1/A 


C£, C-1M € (uA. 
Æ. Use the variables shown below to work the exercises in this section. 


pss CUSTNO-1 2 8 4 
MONTHS-10 11 12 
CADDRESS-4 16p'55 WESTLAKE DR. 101 
JEFFREY LN. 23 REPUBLIC AVE.27 MEMORIAL DR. ' 
CORDERS-4 3p73 412 811 27 84 11 72 35 
99 107 78 23 


CUSTNO andMONTHS are keys to the other data. The customer 

numbers (CU ST NO) correspond to the rows of CADDRESS and 
CORDERS. The months correspond to the columns of CORDERS (that is, 
CORDERS contains customer orders for three months: October, November, 
December). 


7 \. Write an expression to display customer 3’s orders during this period. 
"2. Write an expression to display customer 4's address. 
/ 3. Write an expression to display all the orders for November. 


A 


4. Write an expression to display customer 1's orders in December. 
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Writing Programs in APL 





note 





In this chapter, you will learn: 


* how to enter function definition mode and create your own programs 
* how to run your programs 

* how to make corrections in your programs 

* how to use character data in programs 

* about the six different classes of APL programs 


The programs appearing in Chapters 5 through 9, including those appearing in the 
exercises, are stored in the workspace LESSONS supplied with all APL* PLUS 

Systems. If you ever get tired of entering a program or you just can't seem to get 
it right, you can always copy the version stored in LESSONS. Just enter: 


)COPY LESSONS pgmname 


Pgmname is the name of the program you want to copy. For example: 


)COPY LESSONS AVG 


If you're using a personal computer APL system and you receive the message W S 
NOT FOUND, you should try inserting one of the other disks supplied with your 
system in your primary disk drive. Then enter the command again. 


The code (that is, the APL programs) for the workspace is also listed in Appendix 
D. If your APL system does not have the LESSONS workspace, you can 
always type the programs in using the code in Appendix D as a guide. 


By now, you're probably tired of typing in the same lines every time you want to 
do something. You might have thought at least once, "There must be an easier 
way to do this!" Well, it turns out that you can store APL expressions, much as 
you can store data. 


Writing Programs in APL 





WHY WRITE 
PROGRAMS? 


AN EXAMPLE 
OF AN APL 
PROGRAM 





In this chapter, you will learn how to store generally useful expressions. In 
computer jargon, this is called “writing programs.” In APL literature, it's usually 
called "defining functions" or “writing user-defined functions," but as we said in 
Chapter 1, the words “program” and “function” mean the same thing in APL. 


Why would you want to write your own program? One reason has already been 
given—you'd like to avoid typing in the same lines over and over. Another 
reason is that programs can store many lines of APL, allowing them to perform 
complicated tasks, as we saw in Chapter 1. Also, programs can "call" other 
programs and thus perform even more complicated tasks. Finally, programs can 
be stored in workspaces and used again and again for similar work. 


One example of using a program to avoid a lot of extra typing is taking an 
average. The general APL expression for this is: 


(+/VECTOR) + pVECTOR 


If you think about this expression for a minute, you'll see how it works. To use 
an example, if you want to average three numbers, you add up all three, then 
divide by three (that is, divide by the number of numbers). That is, 


(2 + 3 + 4) * 3 
3 


In the general case, we add up all the numbers (+ /) then divide by the number of 
numbers (shape, ©). Let's try our expression: 


Veil 23 4 5 
(+/V)+0V 
3 


Now, this is a lot to type, and what’s more, it’s a lot to remember. It might be 
nice to have a function (like plus or divide) called AVG, so that we could enter 


AVG V 


and get the result we want. In other words, we want something that we define, 
but that acts like a built-in APL function. This is the basic idea of a user-defined 
function. We create an expression to perform a particular task, give the 
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DEFINING A 
FUNCTION 


note 


entering 
function 
definition mode 


function header 


entering lines 
of a function 


expression a name, and then use the named expression just like APL functions 
such as multiply and plus reduction. (This is why programs are usually called 
functions in APL.) 


To create an APL function, we must enter “function definition mode.” This is 
different from "immediate execution mode" because the system doesn't execute 
the statements as we type them in or give us any answers. Instead, it stores the 
lines under the name we give so that they can be used later. 


Most APL systems have a full-screen text editor that you can use to create and 
modify functions. Since these facilities differ from machine to machine, we 
strongly recommend that you read the documentation provided with your system 
to learn how to use the editor, or ask an experienced user. 


In addition to the full-screen editor, most APL systems also have a line-oriented 
editor called the del editor. We'll explain here how to use the del editor to create 
and modify short functions. Be sure to learn how to use your system's full-screen 
editor, however, to make entering the functions in later chapters easier. 


To enter function definition mode, type a “del” (V), which is usually found on the 
G key. The del should be followed by the name of the function and the name of 
any data it will use. Enter: 


vAVG DATA 
[1] 


Be sure to leave a space between AVG and DATA. Together, these two items are 
called the "function header." 


Notice that the system immediately types a 1 surrounded by brackets. This 
indicates (1) that we are in function definition mode, and (2) that the computer is 
waiting for us to enter the first line of our function. So let's give it something. 


Enter, on the same line with the [1]: 


[1] (+/DATA)+ODATA 
C2] 
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MM 


note 


EXECUTING 
A DEFINED 
FUNCTION 


The system printed a 2 in brackets, because it's now waiting on the second line of 
our function. We've already typed in all we want to though, so let's exit from 
function definition mode by typing another del on the line with the [2 1: 


[2] V 


Some APL systems may require a different sequence to exit from function 
definition mode. (For example, you must use a pull-down menu in the 

APL* PLUS System for the Macintosh.) Check your system documentation if 
this example does not work for you. 


By now, you should have a display like the following one in front of you. 


vAVG DATA 
[1] (*/ DATA) * oDATA 
[21] V 


If you do, congratulations! You've just created your first function. If your 
function doesn’t look exactly like this, it may not work. But don't worry—we ll 
learn how to correct typing errors in a minute. ' 


Test your function with some numbers you know the average of: 


AVG 90 100 
AVG 100 200 300 


95 
200 


Then try some tougher ones: 


AVG 37 74 29 
46.66666667 

AVG 1.7 2.1 3.2 
2.333333333 


Success! At least it was for those of you who typed the function in correctly. 
For those of you who didn't, it's time to learn how to correct a function 
definition. Those of you who got it right the first time will need to read this 
section too, since you're bound to make a mistake sooner or later. 
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CORRECTING 
MISTAKES 


Replacing an 
Entire Line 


We call the process of correcting mistakes in a function "editing a function." To 
edit a function, you need to get back into function definition mode by typing a v 
and the function's name: 


vAVG 
[2] 


Notice that you shouldn't type in the name of the data used by the function 
(DATA, in this case) in order to edit it. Also notice that the computer printed a 
[2]. The system assumes that we want to add lines to the end of the existing 
function definition. To direct the computer's attention elsewhere, simply enter the 
number of the line you want to go to (in this case, line [ 1] ): 


[2] [1] 
[1] 


The system responds with a [ 11], indicating that it’s waiting for you to enter a 
new line [1]. This new line [1] will replace the old one. Enter: 


[1] — (*/DATA)*pDATA 
[2] 


(As you can see, it doesn't matter if you enter the exact same thing for the new 
line [ 11.) Now that it's got the new line, the system is ready to move on to the 
next line. We're finished though, so we enter a del. 


[2] V 


You should now have a display similar to the following in front of you: 


vAVG 
[21 (1) 

[1] . (*/DATA)*0DATA 
[2] v 


Test your function again to make sure it works: 


AVG 25 50 75 
50 
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Correcting Part We've learned how to edit a function by replacing an entire line with a new one. 

of a Line In some cases, we might want to change only part of the line, particularly if the 
expression is a long one. Let's create a new function to demonstrate this editing 
technique. Enter: 


VERASEBLANK S 
C1] 


This function will delete all the blanks in a sentence. Let’s enter the working part 
of the function, but let's make a mistake in doing it: 


[1] (^ 'AS)/W 
[2] V 


Notice that the W at the end of the expression should have been an S. If we try 
to run this function with the error in it, we'll get an error message: 


ERASEBLANK 'SO IT IS' 
VALUE ERROR 
ERASEBLANK[11] (! '#S)/W 
^ 


We geta VALUE ERROR because W doesn't have a value, some data, stored in 
- it (we haven't defined a W). Now that APL has identified the mistake in the 
function, we want to get back into function definition mode and correct it. 


! E Am Me "o 
It's a good idea to enter the command: C lew $ ais 
(X e[s 
SIC "ee 


before you edit a function that has run into a problem. "Stopped" functions are 
said to be “suspended,” and the system keeps track of them in something called a 
“stack” (that is, a stack of things for the system to do). The command ) SIC 
clears out (resets) the stack, so that the system doesn't get confused when we try 
to run the function again later (after we've fixed it). If you don't enter ) SIC, 
you may geta DEFN ERROR (definition error) when you try to run the corrected 
function. 
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- Now let's correct our function. Enter: 


VERASEBLANK 
[2] C100] 


The system is ready to accept line [21, but we tell it to go to line [1], print 

it, and leave us at the end of the line. The only new character here is the quad (0), 
usually found on the L key, which separates the desired line number (1) from the 
desired position on the line (0, meaning “end of line”). The system responds: 


[1] (^ '#S)/W 


The cursor is now located at the right of the line. To make our Correction, 
backspace one space (using the BACKSPACE or UNTYPE key). This causes the 
letter W to be erased. We can now type in the correct letter: 


[1] (! !£z35)5/8S 
[2] V 


The system was ready for line [2], but we were done, so we entered a del. 


Test the function: 


ERASEBLANK 'YOU CAN SAY THAT AGAIN' 


YOUCANSAYTHATAGAIN 
ERASEBLANK '* * x OOPS! 
**x*xOOPS 
note There are many techniques for correcting lines in a function definition. We have 


introduced only the simplest methods here. If you are interested in other methods, 
you should refer to the documentation provided with your particular APL system. 


Displaying Another thing we might want to do with a function is display it. This is 
a Function especially useful when the function has many lines. Let's create a function with a 
Definition number of lines that tells us about our bank account. In particular, it tells us the 


largest deposit, the smallest number (which, if negative, is the largest 
withdrawal), and the present balance. We'll call the data V (for "vector"). Enter: 
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vACCOUNT V 
[11 T/V 
[2] LZY 
[3] +/V 
[4] v 


Let's test our new function: 


ACCOUNT 70 130 35 721 ^12 27 
130 
d 
229 
A-30 722 295 7 "190 150 -55 
ACCOUNT A 
295 
190 
215 


If we came back the next day, we might not remember what these three numbers 
are, so we would want to list the contents of the function to refresh our memories. 
Enter function definition mode: 


VACCOUNT 
[4] 


Now type a [O] (again, using the quad symbol) to list the function: 


[4] CO] 

[L0] ACCOUNT V 
[1] [/V 

[2] L/V 

[3] +/V 

[4] 


The computer lists everything in the function, including its first line (the name 
line), then waits for line [41. Since we only want to list the function, we exit 
function definition mode by entering a del: 


[4] V 
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Inserting a Line Another thing you might like to do with a function is insert a line. Let's say that 
we really meant to include a line for calculating the running balance in our 
function ACCOUNT. We wanted this line to come right after line [2]. Enter 
function definition mode: 


VACCOUNT 
[4] 


If you now enter [2 . 5], the system will get ready to accept a new line to insert 
between lines [2] and [3]: 


[4] [2.5] 
[2.54] 


We can now enter the statement for taking a running balance: 


L2 5] +\V 
[2.6] 


Now the system is ready to insert a second line between lines [2. 5] and [3]. 
We have nothing else to add, but we would like to see whether the line got 
inserted, so we enter the command for displaying the function, [0]: 


[2.6] CO] 

[L0] ACCOUNT V 
[1] [/V 

[2] L/V 

[2.5] +\V 

C3] +/V 

[4] 


Satisfied that the line has been inserted, we exit function definition mode: 


[4] V 
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Let's test the new version of the function: 


ACCOUNT A 
295 
~190 
30 8 303 310 120 270 215 
215 


The display now includes a fourth item, the running balance. 


Just for curiosity’s sake, let’s display the function once more: 


VACCOUNT 
[5] CO] 
CO] ACCOUNT V 
[1] [/V 
[21 L/V 
[3] *NV 
[4] +/V 


[5] 


Surprised? Line [2.5] has become line [3]. The system automatically 
renumbers the function lines when we exit function definition mode. This makes 
it easier to keep track of line numbers when we begin writing and editing longer 
functions. 


Erasing a Line While we're still in function definition mode, let's look at another thing we can 


do with function lines—delete them. We really don’t need line [41], since the 
running balance shows the ending balance anyway. Enter: 


[5] [^4] 
[4] 


(The tilde character, ^, is usually found on the T key.) On some computers, you 
would use a delta (^) instead of a tilde: 


[5] [^4] 
[4] 
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Let's list the function to make sure line [4] has been deleted: 


[4] CO] 

[0] ACCOUNT V 
[1] [/V 

[2] L/V 

[3] +\V 

C4] 


Then exit function definition mode: 


[4] V 
SUMMARY A summary of the five editing commands we've learned is given in the table that 
OF EDITING follows. 
COMMANDS 

Command Description 

[n] Send the computer to line [n]. It waits for a new line 





CO) 
Ac 
(^ $1 d E" vo, Um] 
w^ i 
Qus 
Z^ ge 
NM [^n] or [An] 
t 
alse 


(a-v OJ sé cues 


[n] to replace old line [n]. 
A À | 
AA aY A ! P di 
Sénd'the computer to line ; print the ling, then have'it 
wait at the en È line.\Use the UNTYPEr . 


ACE key to line. "Ka 


Display the entire function. 


mi 






Insert a line between two existing lines. For example, 
[1.5] (or [1.11 or [1. 71) inserts a line between 
existing lines [1] and [2]. 


Delete line [n]. 


V 
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It would be nice if AVG explained what its answer means, like this: 


AVG 2 3 4 
THE AVERAGE IS 3 


This would be really helpful with the function ACCOUNT, since it calculates so 
many different answers. 


Using character data in a function is as simple as using character data in immediate 
execution mode. Remember, we simply surround characters with single quotes 
and the computer “throws it back” at us: 


'YOU DON''T SAY' 
YOU DON'T SAY 


The only exception is the quote itself, which must be doubled, as the example 
shows. 


The second thing to remember is that numbers can be converted to characters 
using the format function and then catenated to other character data. Format uses 
the symbol *, and catenate uses the comma symbol. For example: 


'THE AVERAGE IS ',¥3 
THE AVERAGE IS 3 


We can also put an APL expression on the right-hand side of format: 


'THE SUM IS ',¥2+3 
THE SUM IS 5 


APL does the arithmetic first, then turns the answer (5) into character data, then 


catenates it to the sentence. This is the form we will use to get explanatory 
sentences for the answers in our functions. 
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Let’s add some explanatory notes to our ACCOUNT function. Rather than edit 
each line of ACCOUNT, let's create a new version called ACCOUNT 2. Enter: 


VACCOUNT2 DATA 


[1] 'THE LARGEST DEPOSIT IS ',s[/DATA 
[2] 'THE LARGEST WITHDRAWAL IS ',sL/DATA 
[3] 'THE RUNNING BALANCE IS !',%+\DATA 
[4] V 


You may want to list your program to make sure everything's okay. In 
particular, make sure you have a quote at the beginning and end of each piece of 
text. 


Test the function: 


ACCOUNT2 78 122 ^23 "11 -55 67 
THE LARGEST DEPOSIT IS 122 
THE LARGEST WITHDRAWAL IS ^55 
THE RUNNING BALANCE IS 78 200 177 166 111 178 


If the system reports any errors, enter ) SIC, get back into function definition 
mode, go to the line where the system showed the error, and correct it. You may 
find that once you've corrected an error in line [ 1], the system will find another 
error in line [2] or [3]. But once you get your function to look exactly like 
the one above, it'll work perfectly. 


DIFFERENT So far, we've created a lot of different functions, but all had the same basic form: 
FUNCTION 

FORMS function name data 

Functions with For example: 


One Argument 
AVG DATA 
ERASEBLANK S 


We mentioned that this is similar to the functions plus reduction or shape: 


+/A 
pA 
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Functions with 
Two Arguments 





All of the functions shown use only one argument. Many functions, 
however, use two arguments (that is, take data on both sides). For example, 


6*2 
O 1/'AZ' 


When creating your own functions, you may want them to take data on both 
sides. Consider the function PERIMETER: 


5 PERIMETER 6 
22 


This function takes the length of two sides of a rectangle and finds the perimeter. 
Remember from geometry that the perimeter of a rectangle is the sum of the 
lengths of the sides. 


It is as easy to build functions with two arguments as it was to create functions 
with one argument. Enter: 


vWIDTH PERIMETER LENGTH 
[1] 


Simply by entering three names separated by blanks, you have told the computer 
that: 


1. The function’s name is PERIMETER. 
2. One piece of data (the left argument) is called WIDTH. 
3. A second piece of data (the right argument) is called LENGTH. 


Now let's enter the working part of the function. You can find the perimeter by 
adding the lengths of the two sides and multiplying by 2, so: 


[1] 2x*WIDTH+LENGTH 
[2] y 
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Functions with 
No Arguments 


Now let's test it: 


10 PERIMETER 20 
95 PERIMETER 8 


60 
26 


Encouraged by your experience with PERIMETER, you may feel tempted to 
define a function with three different pieces of data. For example, you might want 
a function using width, length, and height to find the volume of acube. But if 
you enter: 


vWIDTH VOLUME LENGTH HEIGHT 
DEFN ERROR 


APL gives you an error message and returns you to immmediate execution mode. 
The reason is simple. If you enter three names, APL assumes that the one in the 
middle is the function name, and the two names on either side are data names. 
Similarly, if you enter two names (such as AVG Vor ERASEBLANK S), it 
assumes that the function name is the name on the left. But if you enter more 
than three names, APL has no idea which name is which. So such functions are 
not allowed in APL. This is really no problem, though, because we can use more 
than one number in the data for our functions, as we saw with AVG and 
ACCOUNT. Fora VOLUME function, you'd probably want to define it with 
one argument: 


VOLUME LWH 


where LWH would be a three-element vector containing the length, width, and 
height. 


There is a third type of function that has no arguments. We can define a function 
DIE, which "rolls a die" and displays the number: 


DIE 
1 

DIE 

DIE 
4 
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Explicit Results 


This function uses the built-in APL function called roll (?) that you learned about 
in Chapter 3. Let's define it: 


VDIE 
[1] 76 
[2] V 
Test it: 

DIE 
5 

DIE 
4 


(Your results will be different, but the function always produces a random number 
between 1 and 6.) 


You may think that functions that take no data would have few uses, but they are 
very useful for doing things like printing a report or controlling files. We'll learn 
more about such uses in Chapters 8 and 9. 


One important characteristic of the built-in APL functions is that they return 
"explicit results." This means that one APL function provides numbers that can 
be used by other APL functions for more work. For example, in the expression 


5+2 3x1x2 
7 11 


the 2 3x1x2 returns the explicit result 2 6, which is then used by the 5+ 
part to get the answer 7 11. We never see the 2 6 result, because it’s 
automatically used by the 5+ part of the expression. 

We've said that our user-defined functions act as “stand-ins” for built-in functions, 
so we should expect them to work in a similar fashion. In other words, we should 
be able to enter 


2*AVG 9 10 11 


and get an answer. But what happens if we try it? 
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Defining 
Functions with 
Explicit Results 


2*AVG 9 10 11 


10 
VALUE ERROR 
2+AVG 9 10 11 
^ 


The problem is that we haven't defined AVG to return an explicit result. The 
AVG function displays the answer (10 in this case) and then promptly “forgets” it. 
The answer is not stored anywhere, so APL has nothing to add 2 to. And we get a 
VALUE ERROR message. 


The VALUE ERROR problem described above is an easy problem to fix. All 
we have to do is tell the function to store the result somewhere. Let's define a 
new version of AVG to demonstrate this technique. Enter: 


vVR-AVG2 A 
[1] 


Notice what's new here. We're saying that the result of the function will be in a 
variable R (for "result") at the end of the function. We've also called the argument 
A this time, just to point out that we can call the arguments whatever we want. 


Let's enter the rest of the function: 


[1] Re-(+/A)+pA 
[2] y 


Again, notice what's new—we’ ve assigned the result of the APL expression to the 
variable R. If you want the function to have an explicit result, you must (1) 

name the result variable in the name line of the function (the header"), and (2) 
assign the result data to that result variable in the body of the function. The name 
of the result variable must be the same in both places. 


Let's try our experiment again, using our new function: 


2+AVG2 9 10 11 
12 
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Eureka! So it's possible to build functions that are used the same as built-in APL 
functions. This means that we can use the results of one function in another 
function: 


2 PERIMETER AVG2 9 10 11 
2 PERIMETER AVG2 12 3 


24 


In the first example, AVG2 gives the result 10, and then 2 PERIMETER 

10 gives the answer 24. One function (AVG2) gives a result, which is then 
passed on to the next function to give the “final” answer. Only the final answer is 
displayed by the computer. 


Since our new AVG2 function returns an explicit result, we can capture the 
result in a variable: 


ANS-AVG2 9 10 11 
ANS 
10 


This was impossible with our original function AVG: 
ANS-AVG 9 10 11 


10 
VALUE ERROR 
ANS-AVG 9 10 11 
^ 


for the same reasons we explained above. 


Let's make alternative versions of two other functions: 


VR-WIDTH PERIM LENGTH 
[1] R-2xWIDTH*LENGTH 
[2] V 


VANS-DIE2 
ANS+?6 
V 


rri 
L2 LO 


8l 
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Function 
Syntax 


Now we can use these functions as arguments to each other. For instance, we can 
“roll two dice" and show the result: 


DIE2*DIE2 
DIE2*DIE2 


We can also assign their results to variables. 


Q-4 PERIM 6 
Q 
20 


You can see that it's useful to have functions that return explicit results, so you'll 
probably want to define most of your functions in this way. 


The following table summarizes the six different forms of functions we've learned 
in this chapter. These are all the forms of functions that are defined in APL. 
Another word for the form of a function is its "syntax." This word isn't entirely 
new to you, since you've seen SYNTAX ERROR messages before. (A 
SYNTAX ERROR means that you've mixed up the positions of the function 
and the data—like V+ / or Vo.) The chart shows the syntax of each function 
type (using FN as the function name, R as the result, and A and B as argument 
names) and also shows examples of each type (the functions we created in this 
chapter). 


No Explicit Result Explicit Result 


No Arguments FN R«FN 


DIE R-DIE2 


One Argument FN A R-FN A 


AVG DATA R-AVG2 A 


Two Arguments A FN B R-A FN B 


WIDTH PERIMETER LENGTH R-WIDTH PERIM LENGTH 
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Before you go on to the exercises, you may want to store your functions and 
variables. Functions and variables are stored using the same command: 


)SAVE MYWORK 


Remember, you can list the functions in your workspace using the command 
)FNS. Remember too, that all the programs shown in this chapter and in the 
rest of the book are in the workspace LESSONS. 


SUMMARY l. 


It is useful to create your own functions, because they: 


* Save typing 

* are easier to remember 

* can be stored for future work 

* can be used to take the place of many APL statements 
* can be used to build systems 


You enter function definition mode by entering a del (V) and leave it by 
entering another del. 


. Afunction consists of a "header" (which gives the function its name and 


identifies its data) and a “body” (which does the work). 


Functions can be edited using the commands summarized on page 74. 


. Character data can be used in a function just as it is used in immediate 


execution mode. 
Functions can have either no arguments, one argument, or two arguments. 


To use the results of a function in other calculations, you must define the 
function to return an explicit result. 


EXERCISES J A. l. Create the function shown below. Note that this is just a test 


program with which to practice your editing skills. If you try to execute 
it, youllgeta VALUE ERROR. 
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* 
QU. ast 
om M 


VNUMBERS 
[1] ONE 
[2] TWO 
[3] THREE 
[4] FOUR 
[5] FIVE 
[6] V 


Enter function definition mode and replace line [2] of NUMBERS 
with the word TOO. 


Replace line [4] with the word FORE. 

Using the editing command [n00], change line [3] to read TREE. 
Add a line between lines [1] and [2] containing the word TWO. 
Delete line [5]. 

List the function. 


Change the name of the function to COUNT. (Use the command [0] to 
do this—line [0] is the function header.) 


List the function. 
Exit the function. 
Write (on a piece of paper) the header for a function called ADD that 


will have two arguments and will return an explicit result. The function 
should work as shown below. 


4 ADD 5 

9 
ANSWER<4 ADD 2 
ANSWER 

6 


Write the body of the function ADD. 
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J 2. 


J 3, 


À 4. 


Js. 


Create the function ADD on the system and test it. 


Write (on a piece of paper) the header for a function RUNTOT that takes 
one argument and gives a running total of the data in the argument. The 
function should not return an explicit result. 


Write the body of the function RUNTOT. 


Create the function RUNT OT on the system and test it. Use the 
numbers 10, 20, 30, 40. 


Create a function called HI, which works as follows: 


HI 
HELLO. MY NAME'S APL. 
WHAT'S YOURS? 


The function does no arithmetic; it merely prints the message. 


Create a function called HALF that returns one-half of the number (or 
numbers) you give it. What’s one-half of 3.14159? 


If you didn’t do it the first time, redefine HALF so that it returns an 
explicit result. 


Use the function HALF as part of an APL expression to find the sum of 
10 and one-half of 3.14159. 


Define a function called ROWTOT that returns the row totals for a 
matrix. For example, 


MAT<3 2916 
MAT 


On GO e 
OAN 


ROWTOT MAT 
3 11 
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Define a function called COLTOT that returns column totals. For 
example, 


COLTOT MAT 
9 12 


Try your ROWTOT and COLTOT functions on this matrix: 


MAT2-3 4p10*112 
MAT2 

11 12 13 14 

15 16 17 18 

19 20 21 22 


Use your COLTOT function inside a new function RPT, which 
displays a simple report based on a matrix. The report should: 


e print the data (the matrix) 
* print a line of underlines (hyphens) 
e print the column totals (use COLTOT MAT2 for this part) 


The function should produce the following display: 


RPT MAT2 
11 12 13 14 
15 16 17 18 
19 20 21 22 


45 48 51 54 
(Notice that the columns aren't perfectly lined up. We'll learn how to 


print fancier reports in Chapter 6, with nicely lined up columns, dollar 
signs, and other things.) 
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pn 
D. 1. Write a function REPEAT that has the following effect: 
REPEAT 'ANN' 
ANN ANN ANN ANN ANN 
REPEAT 'JO' 
JO JO JO JO JO 


(HINT: Use catenation.) 


2. You can find the square of a number by multiplying it by itself: 


3x3 
9 


Define a function called SQUARE that produces the following display: 


SQUARE 9 
THE NUMBER SQUARED IS 81 


What is the square of 247? 


3. Define a function CHOOSE that has the following effect: 


8 7 12 73 55 CHOOSE 3 
101 25 14 47 CHOOSE 2 


12 


That is, it "chooses" a number from the list on the left based on the 
position specified on the right. The function should also work if you use 
it like so: 


NOS-8 76 43 21 23 6 
NOS CHOOSE 4 
21 


(HINT: Use indexing.) 


APL Is Easy! 


Ja 


Create a function called OF which has two arguments and works as 
follows: 


20 OF 'x'! 
kkk kk kkk kkk kkk kkk kkk 
4 OF 'G! 


Dan 


In other words, it gives you as many of the things on the right as you 
ask for with the number on the left. You should also be able to enter: 


2 3 OF '1' 
??? 
??? 


(This should give you a clue as to how the function works.) 


“Histogram” is another word for a bar chart, which compares numbers 
using boxes. Use your OF function inside a new function HI ST to 
produce a horizontal histogram, as shown below: 


HIST 4 11 6 7 
Du 
[] 
D nnn 
OOOOo000 


(HINTS: Use OF with aright argument of ' D ' on four different lines 
of the function to produce the display. Use indexing to pick numbers out 
of the right argument to HI ST one at a time. The function should work 
for four numbers only; that is, not for three, five, and so on.) 


Define a function GT that acts like this: 


SALES-125 350 201 115 279 
SALES GT 200 
350 201 279 


In other words, GT chooses numbers in the left argument greater than 
the number in the right argument. 
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Make sure that your function returns an explicit result, so the result can 
be stored in a variable: 


BIGSALES-SALES GT 200 


BIGSALES 
350 201 279 


Define an LT function similar to GT, except that it selects numbers less 
than the right argument. Then try the expression SALES LT 200. 


Define an EQ function that selects numbers equal to the right argument. 
Then try the expression SALES EQ 350. 


Now it's time to create an actual system. (Don't panic! We'll give you 
lots of hints.) 


The system should consist of four functions, called 


e INITBAL 
e CHECK 

e DEPOSIT 
e NEWBAL 


These programs provide a system for 


* setting an initial bank balance 

* keeping a record of checks you write 

* keeping a record of deposits you make 

e showing the new balance after checks and deposits have been entered 


All of the functions act on the same two variables, DE POS (deposits) 
and WITHD (withdrawals). 


We'll give you the first function: 
VINITBAL AMOUNT 
[1] DEPOS-AMOUNT 


[2] WITHD-O 
V 
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You would use the function one time only, to get started. (Or, you 
could use it at the end of each month to “clear out” your account and set 
the balance for the next month.) INITBAL sets DEPOS to the 
amount you say, and it sets WITHD to O. 


Here's an example of using the system. 


INITBAL 100 
DEPOSIT 25 50 


NEWBAL 

175 
CHECK 20 40 10 
NEWBAL 

105 

HINTS: 


1. CHECK and DEPOSIT should have the forms: 


VCHECK AMOUNT 
VDEPOSIT AMOUNT 


2. Remember that data can be added to the end of a vector using the 
catenate function. For example: 


DATA-DATA,25 


This expression catenates the number 25 to the end of an existing 
string of numbers. 


3. NEWBAL should have the form: 
VNEWBAL 


This function takes no arguments. It merely looks at DEPOS and 
WITED and reports the present balance. (Use + / in this function.) 


write Mining SA (e DET ^ eek re þu As , | 
dm del evan of matrix A, [ Hon. ^j 
—S————e 
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WHAT IS 
FORMATTING? 


DYADIC 
FORMAT 


Format Pairs 


Formatting 
Whole Numbers 


In this chapter, you'll learn how to use the format function and the system 
function OF MT to format data the way you'd like to see it. Using DFMT, you'll 
learn how to produce fancy reports and displays. 


We've seen that APL produces displays of our data in certain ways. This display 
of data is called formatting. You can control formatting to suit yourself using 
two tools: the format function (*) and the system function DFMT. 


We've already explored one type of formatting with format; that is, we used it to 
change numeric data into character data. We can do even fancier things when we 
use format dyadically; that is, with a left and a right argument. 


Just like monadic format, dyadic format turns numeric data in the right argument 
into character data. The difference is that the left argument tells format how to 
arrange the data. 


The left argument consists of one or more pairs of numbers called format pairs. 
The first number controls the field width, that is, the number of columns that will 
contain the data. The second number specifies how to format the data. You can 
use one format pair to format all your data the same way, or you can use several 
pairs to format each column of data differently. Note: We're using the word 
column to mean a scalar, each element of a vector, or each column of a matrix. 


Let's try formatting a vector. 


DATA-1032 10.52 720.11 3.1 2 750 


6 0 x DATA 
1032 11 20 3 2 ~50 


What happened? We used one format pair, 6 O, to format each column, or 
element, in DATA. The first number, 6, says “give each element six columns." 
But why did the decimal places disappear? They disappeared because the second 
number in the format pair control specifies the number of digits to the right of the 
decimal point. 
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Formatting 
Numbers with 
Decimal Places 


Formatting 
Columns 
Differently 


Formatting 
a Matrix 


In this case, the O says "round all the numbers with decimal places to the nearest 
whole number." 


To keep decimal places in the data, substitute a positive number for the O. The 
number you use corresponds to the number of decimal places you want. 


7 2 * DATA 
1032.00 10.52 720.11 3.10 2.00 750.00 


You must remember to leave enough space for high minus symbols (in negative 
numbers), spaces (if you want them), and decimal points, or you'll get a 
DOMAIN ERROR: 


62 * DATA 
DOMAIN ERROR 
62 * DATA 
^ 


What if we want to have different columns formatted differently? For example, 
suppose we want decimal places in some columns but not in others. In this case, 
you must specify a format pair for each column of data. 


606272412040 s DATA 
1032 10.52 720.11 3.1 2 750 


If you use too many or too few format pairs, you'll geta LENGTH ERROR. 


You can also format a matrix the same way as a vector: specify one format pair 
for all the columns of the matrix or one pair for each column. Let's turn DATA 
into a matrix: 


DATA-2 3 p DATA 
DATA 
1032 10.52 720.11 
3.1 2 -50 
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OFMT 
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FORMAT 
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LX. 


Now, format it as whole numbers, using a field width of six: geo" g 26M 
6 4 v» DATA 39€ 0 eate 
1032 11 720 q o€9 12E 
3 2 750 


Now, let’s format each column differently: 


606272 * DATA 
1032 10.52 720.11 
3 2.00 750.00 


You can see that the first column has whole numbers with a field width of six, the 
second column has two decimal places with a field width of six, and the third 
column also has two decimal places, but with a field width of seven. 


Dyadic format gives us more control over the way we display our data. But, we 
may want more types of formatting than just controlling the placement of the data 
and the number of decimal places—especially for reports. In particular, we might 
want: 


* commas 
* dollar signs 
* decimal points for dollar amounts 


Accountants might want even fancier things, like parentheses around negative 
dollar amounts. All of this is easily done with the system function DFMT. 


[]F MT is not available on all APL systems. Refer to your system documentation 
or ask an experienced user if you don't get the answers you expect. 


OFMT takes “format phrases," surrounded by single quotes, as its left argument. 
Its right argument is data (scalars, vectors, or matrices). Common types of 
numeric formatting are: 


E m I~ integer (whole number) ^Y 


, F“ + floating point (numbers with decimal points) i x 


V n^ n "t è als i chew 


ZUM g la Cocot Zr? 





warr 
m 
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AQ J eA 


y pols her, P piank -& WP * i 
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Lowen m E^ 


| i p 
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i Lody jatt (F T } 
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You put a number on the right of the T or F to show how many columns you 
want. For example, I 6 means an integer in six columns. Let's try it with 
DATA: 


'Ie' OFMT DATA 
1032 Ll 720 
3 2 750 


Count the spaces, and you'll see that each number got six columns (the high 
minus counts as a column for negative numbers). Also, since we wanted integers, 
the numbers with decimal points were rounded. 


'T10' OFMT DATA 
1032 11 720 
3 2 -50 


This time, each number got 10 columns. 


With F, you must indicate the total number of columns and also the number of _ 
columns to the right of the decimal point. (The decimal point counts as a 
column.) 


'F8.2' OFMT DATA 
1032.00 10.52 20.11 
3.10 2.00 3750.00 


' F8.3' OFMT DATA 
1032.000 10.520 720.110 
3.100 2.000 750.000 


If you don’t give OF MT enough columns, you get stars where UF MT couldn't fit 
the numbers. 


'F5.2' OFMT DATA 


*x***x*x10.52*x*x**x 
3.10 2.00**x*x* 
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DECORATIONS Decorations are also commonly used in formatting. The term “decorations” refers 
."' to items such as commas and dollar signs that are used to decorate data, making it 
; easier to read and interpret. To get commas inserted in thousands, millions, and 
so on, use C in front of I or F: ads 8 Liaw ky evas 


'CI10' OFMT 10000000 de aeo Fill on lest 
10,000,000 L Eats 
'CF12.2' OFMT 10850.7 Qa eR 
10,850.70 


R > NAC quov*? 
3 We'd also like decorations on either side of numbers, such as dollar signs, [on {| 
y parentheses around negative numbers, and so on. 


ew? 
; ; A 
M <text>— Insert something on the left side of a negative number. ¢ £o "T 
P N <text>— Insert something on the right side of a negative number. 21 mii! 
“} zi $ P «text»— Insert something on the left side of a positive number. 


ae Ó 
Q «text» — Insert something on the right side of a positive number. reg. ^ 
Pas A 5 je 
Let's try out these format phrases. We can use as many of them together as we : 
like. Remember that each decoration counts as a column though, so we have to 


allow for enough columns or we'll get stars. j 
< 
'P<$>F8.2' OFMT 1082.2 2 L^ a 
$1082.20 NS EG eV 


(The text in this case is a dollar sign.) 


'"M<($>N<)>F10.2' OFMT “1082.2 
($1082.20) 


'P<$>Q< >M<($>N<)>F15.2' OFMT 1002.6 
345.32 7214.5 
$1002.60 
$345.32 
($214.50) 


As you can see from the last example above, vectors are "stacked" (displayed as a 
single column of numbers) when OF MT formats them. 
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o ay ase 


02/17/832 


2 4], ve 
APL Is Easy: "i ^ io | 





Let’s put percentage signs on the right of some numbers. 


'N<0/*>Q<e/*>F8.1' OFMT 31.2 87.5 -723.8 
31.2°/>o — 
87.5°/° 
=23.8°/° 


To insert the letters DR and CR (for “debit” and “credit”) next to positive and 
negative numbers: 


'M<>N< CR>Q< DR>F9.2' OFMT 32.34 721.4 
32.24 DR 
21.40 CR 


(The M< > part keeps the negative sign from printing.) 


formatting Format strings can be assigned to variables, so that you can use them again and 
and again. Let's assign some phrases to F 5 (for "format string"). 
variables 


FS«'N<e/e>Q<e/e>Fi0.1'! 
FS OFMT 31.2 87.5 723.8 


31.2°/° 
87.5°/° 
~“23.8°/° 
formatting If you join format phrases together with commas, you can format each column of 
individual a matrix differently. 
columns 
DATA 
1032 10.52 720.11 
3:1 2 ~50 


FS1i<'M<($>N<)>P<$>F9.2,N<°/e>Q<e/eo> 
I7,M<>N<CR>F10.2' 


FS1 OFMT DATA 
$1032.00 i11°/* 20.11 CR 
$3.10 2*/* 50.00 CR 


In the example above, we used three different format phrases, separated by 
commas, to format three columns of data. What if we only used two phrases? 
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Repetition 
Factor 


FORMATTING 
MULTIPLE 
PIECES 

OF DATA 


Enter: 


' I8,F8.2' OFMT DATA 
1032 10.52 20 
3 2.00 750 


Columns 1 and 2 are formatted using the phrases you entered. Then, UF MT goes 
back to the beginning of the format string and repeats the phrase to format column 
3. If more data columns were included, the phrases would be repeated until all data 
columns were formatted. 


In the above example, we saw that format phrases will be repeated automatically, 
if we don't enter enough to handle all the data columns. A better way to repeat 
format phrases, however, is to use a "repetition factor." This factor allows you to 
control which phrases are repeated and how many times. The repetition factor is 
entered before the format phrase. Enter: 


'I8,2F8.2' OFMT DATA 
1032 10.52 720.11 
3 2.00 750.11 


Since we included the 2 before the F, columns two and three were both formatted 
using the F8 . 2 phrase. 


OFMT can be used to format many different pieces of data at once. The data is 
enclosed in parentheses, and the pieces are separated from each other by 
semicolons (; ). Enter: 


NUMS-35.7 20.11 


'218,2F8.2' OFMT (NUMS; DATA) 
36 1032 10.52  Á 720.11 
20 3 2.00 750.00 


The vector NUMS is stacked and formatted next to DATA. 
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formatting Character data and numeric data can be formatted at the same time. To format a 
character character matrix, use the format phrase A and a repetition factor equaling the 
data and number of columns in the character matrix. 
numeric data 
together MONTHS-2 3p'JANFEB' 
'3A1' OFMT MONTHS 
JAN 
FEB 


'3A1,3F8.2' OFMT (MONTHS; DATA) 
JAN 1032.00 10.52 à 720.11 
FEB 3.10 2.00 750.00 


When you format character and numeric data together, it's important to get your 
repetition factors right, since the A format phrase is not defined for use with 


numbers. 
Basic Let's use formatting inside a function to produce a report. Enter: 
Reporting 
Functions INCOMEDATA-3 PeT 2 11500 12500 

11217.71 11000 11500 O0 0 

INCOMEDATA 
10520.2 11500 12500 
dr ^ 71 dd. a 


NAMES-3 7p! REVENUE EXPENSEPROFIT i 


The first function, called CALC, calculates the profit by subtracting expenses (in 
row 2 of INCOME DATA) from revenue (in row 1 of INCOME DATA). 


vCALC 
[1] INCOMEDATA[3;1-INCOMEDATA[1;] 
-INCOMEDATAI2;] 
[2] V 


The function simply subtracts the second row of INCOME DATA from the first 
row. Then it assigns the answer to row 3 of TNCOMEDATA (where we left Os). 
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Now comes the actual report. Enter: 


vREPORT 
' 


[1] HOMEGROWN CO.' 


[21 AE. 
C3] : 1981 1982 1983' 


[4] ME. 

[5] CALC 

[6] '7A41,3CF12.2' OFMT (NAMES;INCOMEDATA) 
V 


[7] 


REPORT prints some headings (centered), runs the C ALC function, and then 
prints the body of the report. We get blank lines by putting a single blank ('  ') 
on the appropriate lines of the REPORT function. Let's run the function: 


REPORT 
HOMEGROWN CO. 


1981 1982 1983 


REVENUE 10,520.20 11,500.00 12,500.00 
EXPENSE 11,217.71 11,000.00 11,500.00 
PROFIT 697.51 500.00 1,000.00 


Of course, you could also add dollar signs, parentheses, and anything else you'd 
like. 


In this chapter, you learned about the dyadic function * and the system function 
OFMT. The general form of [1FMT is 


format string OfMT data 
or 
format string OFMT (data;data;...;data) 


APL Is Easy! 





You learned how to use the following format phrases with OF MT. 


Format 
Phrase 


r Aw 
C 

r Fwd 
r Iw 


M «text» 


N «text» 


P «text» 


Q «text» 


Description 

Format character data 

Insert commas for thousands, millions, and so on 

Format floating-point data (numbers with decimal points) 
Format integers (whole numbers) 


Place whatever is inside <> on the left side of negative 
numbers 


Place whatever is inside < > on the right side of negative 
numbers 


Place whatever is inside <> on the left side of positive 
numbers 


Place whatever is inside <> on the right side of positive 
numbers 


Key: r means repetition factor; w means width (number of columns); d means 
number of decimal places. 


OFMT offers many more capabilities in addition to those introduced here. Refer 
to your system documentation for more details. If you do not have an 
APL * PLUS System, you may not be able to use OF MT, or it may work 
differently. Again, refer to your own system documentation for details. 
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EXERCISES J A. Create the following variable: 


D-2 3p10250.5 17512.7 18016.2 
11205.81 16867.12 19197.2 


Use DFMT to do the following exercises. 
1. Format the numbers in D as integers, using a column width of eight. 


2. Format D as floating-point numbers, using a column width of 10 and two 
decimal places. 


3. Format D as floating-point, using a column width of eight and two 
N decimal places. 


4. Format D as floating-point, using a column width of 18 and two 
decimal places. 


5. Repeat Exercise 4, using [1F MT to insert commas in the data. 


6. Bpo Exercise 5, using OF MT to ue dollar signs next to the numbers. 





B. Gea the tatabi E and nd N: 


E-2 2p18147.7 20.4 19717.11 “17.3 
N-2 8p'REVENUESEXPENSES' 


i? ( ( | 1. Format column 1 of E as floating-point, with a column width of 12 
6 A and two decimal places. Format column two of E as floating-point, with 
a column width of 10 and one decimal place. 


2. Repeat Exercise 1, inserting commas and placing dollar signs next to the f 
numbers in column 1. w] » Per M a ee ae 


a m 


/ 3. Repeat Exercise 2, placing percentage signs (° / ° ) on the right of the 


p". numbers in column 2. 
Mf 


N 
2 4. Repeat Exercise 3, changing the APL high minus (the one next to the 
. Negative percentage) to the more familiar hyphen. 
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3. Repeat Exercise 4, placing a plus sign (+) next to the positive percentage. 


6. Repeat Exercise 5, formatting N next to E. That is, format N first, then 
E, using one OF MT statement. The result should look like this: 


REVENUES $18,147.70 +20.4°/. 
EXPENSES $19,717.11 -17.3°/-. 


C. Create the variables S and N 1: 


S+2 2p6543.1 5342.55 6231.89 7531.21 
N1-c2 9p'SALESREPASALESREP2'! 


1. Format the numbers in S as floating-point, with a column width of 
12 and two decimal places. 


2. S contains the sales figures for two sales representatives for two weeks. 


The rows correspond to the sales representatives; the columns to the 
weeks. We can find the total sales for two weeks like so: 


Iec*/8 
T 
11885.65 13763.1 


Repeat Exercise 1, formatting the totals (T) next to S (on the right-hand 
side of S). Use the same format phrase for both pieces of data. 


3. Repeat Exercise 2, inserting dollar signs next to all the numbers. 
4. Repeat Exercise 3, inserting commas in the thousands position. 


5. Format N 1 on the left of the numbers. (HINT: Remember to use 
repetition factors for both format phrases.) 
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D. 1. Define a function REPT that produces a report using the information from 
Exercise C.5. The function should have the syntax REPT data. REPT 
finds row totals for data using * /, stores the totals in a variable called 
TOT, then formats N 1, data, and TOT together. Test your function on 
S by entering: 


REPT S 


2. Define a new function RPT2 that behaves the same as REPT, except that 
it prints the centered title SALE S FIGURE S and the column titles 
WEEK1,WEEK2, and TOTALS before it formats the body of the 
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WORKSPACE? 


note 


active 
workspace 


In this chapter, you will learn what a workspace is and how functions and 
variables can be "permanently" stored in a workspace. You'll also learn how to 
list the names of your workspaces, change the name of a workspace, erase 
individual functions and variables in the workspace, and erase entire workspaces. 


A workspace is a place in the computer where work is done and objects (functions 
and variables) can be stored. You've been working in workspaces all this 
time—either in "clear" ones or in ones you've named. You can think of 
Workspaces as different drawers of a desk you work at. As you need to do different 
work, you get things out of different drawers. Y ou have to replace the things in 
the drawers when yov're finished or they get lost. 


On most APL systems, a collection of workspaces is called a “library,” and these 
libraries are differentiated by library numbers. On most mainframe APL systems, 
the libraries are logical collections of related workspaces. On some personal 
computer APL systems, the library numbers refer to disk drives, either physical or 
logical. Some personal computer APL systems use disk names instead of library 
numbers. If you omit the library number when you type the name of a 
workspace, APL assumes you want a workspace in the current library or on the 
current disk. Refer to your system documentation or ask an experienced user to 
find out how your APL system handles libraries or disks. 


In APL, we “get things" using the command ) LOAD and “put them back" using 
the command ) SAVE. We can move back and forth between workspaces by 
using these commands together. We load one workspace, save it when we're 
finished, then load another, save it, and so on. 


Whenever you're in APL, you're always using a workspace. We call the 
Workspace you're in your "active workspace" (as opposed to stored workspaces). 
Your active workspace may be a clear one that has no name, or it may already 
have a name. Most systems give you a clear workspace when you sign on. You 
can always give it a name by storing it under a name you choose. For example, 
enter: 





104 


Storage Facilities: Workspaces 





SYSTEM 
COMMANDS 


)SAVE 


)SAVE MYWORK 
SAVED . . . 


When you enter this, a message is printed telling you what the workspace name is 
and that it's been stored. (We won't show the entire message, since it's slightly 
different on each system. On some systems, the message includes only a date and 
time and no SAVED part.) 


No matter which workspace you're in, all of the built-in APL functions (+, +, 
* /, p, and so on) are always available for you to use. 


Besides saving and loading workspaces, we can do other things with workspaces, 
such as listing the things contained in them, erasing things, and copying things 
from other workspaces. The commands that allow us to do these things are called 
"system commands." We use this term because these commands control the 
system rather than doing calculation. All of them begin with a right parenthesis. 


The system command ) SAVE stores a copy of the workspace you're in under a 
name you give. It takes the form: 


)SAVE name 


Enter: 


)SAVE EXAMPLE 
SAVED . . . 


A message is displayed telling you when the workspace was stored, and so on. 
You cannot save a clear workspace; you'll get an error message. Be sure to name 
your clear workspace when you save it. 


Notice that a copy of the workspace is stored. When you enter ) SAVE the active 
Workspace remains the same. 
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)CLEAR 


If the workspace already has a name, you only need to enter: 
)SAVE 


The workspace will be saved under its "old" name. Enter: 


)SAVE 
SAVED . . . 


The SAVE D message includes the name of the workspace, which is the name you 
gave it a moment ago—E X AMPLE. 


The most important fact you should remember about ) SAVE is that you can 
create variables and functions in your active workspace, but none of these are 
permanently stored until you use the ) SAVE command. 


)LOAD is used to get into a workspace you've stored already. It takes the form: 


)LOAD name 


Let's load a workspace: 


LOAD DEMOAPL 
SAVED 


If the DEMOAPL workspace is not in the current library or on the current disk, 
you will have to type in the appropriate library number or disk name, depending 
on your APL system. You can now run programs in this workspace the way you 
did in Chapter 1. 


Again, the thing to remember is that, although you've loaded the workspace, none 
of the things you create in it will be stored until you use the ) SAVE command. 


)CLEAR puts you in an empty, unused workspace. You'll want to do this if 


you want to do some new work and keep it separate from other work. Just create 
your new functions and variables; then save the workspace under a new name. 
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To see how this works, let's define a few variables and a function: 


A-—5 

B-19 

vX ADD Y 
[1] X*Y 
[2] V | 


Let's save the workspace under the name EX AMPLE: 


SAVE EXAMPLE 
SAVED . . . 


Now let's clear the workspace: 


)CLEAR 
CLEAR WS 


We see that A, B, and ADD are no longer there: 


A 
VALUE ERROR 
A 


^ 


7 ADD 8 
SYNTAX ERROR 
7 ADD 8 
^ 
)FNS )FNS gives an alphabetical listing of the names of the functions in the 
Workspace. 
)VARS )VARS provides an alphabetical list of the names of the variables in the 


Workspace. You've used )FNS and )VARS before, but let's get back into the 
workspace EX AMPLE to use them there. 


)LOAD EXAMPLE 


SAVED . . . 
)FNS 
ADD 
)VARS 
A B 
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)ERASE )ERASE is used to delete variables and functions from the workspace. It takes 
Tm the form 
AP on 
eu Gian 
er r )ERASE objectl object2 . 
m M Let's try it: 
)ERASE A 
VARS 
B 


Again, the deletions you make are in the active workspace and don’t affect the 
stored copy of the workspace unless you do a ) SAVE. We can prove this to 
ourselves by loading EX AMPLE again: 


LOAD EXAMPLE 
SAVED . . . 
)VARS 
B 


A 


To erase something in the workspace “forever,” you need to use )ERASE and 
V then ) SAVE right afterwards. 


Q WSLI Por )WSLIB or )LIB (depending on your APL system) lists the workspaces you 
LIB have in your library or on your disk. Let's try this command: 
)WSLIB 


(We won't show the list, since it will be different depending on the workspaces 
you've stored. The list should include FX AMPLE at a minimum though.) 


YWSID )WSID gives the name of the active workspace (the one you’ re presently 
working in). Let’s try it: 


IWSID 
IS EXAMPLE 
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Let's see what happens when you clear the workspace: 


)CLEAR 
CLEAR WS 

)WSID 
IS CLEAR WS 


You can also use the )WSID command to rename your active workspace: 


IWSID EX1 
WAS CLEAR WS 
)WSID 
IS EX1 


Then later you can just enter ) SAVE to save the workspace, since it's already 
got a name. 


)DROP DROP deletes one of your stored workspaces. It has the form: 
DROP name 


The named workspace is dropped from storage. This command does not affect the 
active workspace. Let's define something in EX 1. 


XX<111 


Then let's save EX1: 


)SAVE 
SAVED : 


If you enter )LIB or )WSLIB now, you'll see that EX 1 has been added to 
your list of stored workspaces. Now let's drop it: 


DROP EX1 
If youenter )WSLIB now, you'll notice the EX 1 has been deleted from the 
library. But notice that you're still inside EX 1: 


)WSID 
IS EX1 
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)COPY 


Also notice that XX is still around: 


XX 
123456789 10 11 


If you load another workspace or clear the workspace though, EX1 will be gone 
forever, since it's no longer stored. 


)CLEAR 
CLEAR WS 

)LOAD EX1 
WS NOT FOUND 


)COPY is used to copy objects (functions and variables) from one workspace 
into another. It takes the form: 


)COPY wsname objectnames 


For example, enter: 


)COPY MYWORK SALES 
SAVED . . . 
SALES 


125 350 201 115 279 


Your values for SALES may be different if you changed SALES in this 
workspace since Chapter 5. If you never stored MYWORK, you'll get the 
message WS NOT FOUND. You can easily copy something stored in one of 
the workspaces listed by )WSLIB though. 


If you omit the objectnames in the ) COPY command, the entire workspace is 
copied into your active workspace. Enter: 


)COPY MYWORK 
SAVED . . . 


If you list the variables now, you'll see the entire list from MYWO RK. 
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OFF 


SYSTEM 
FUNCTIONS 


SUMMARY 


Again, remember that the ) COPY command only brings things to your active 
workspace. Only the ) SAVE command can store the new items in the 
workspace in your library. 


OFF signs you off from the APL system. (On personal computer systems, 
it's important that you use this command if you have any files active—which 
we'll learn about in Chapter 8— because this protects the files.) 


Part of the nature of system commands is that they can't be used inside functions. 
This probably doesn't concern you too much right now. But when you've gained 
some experience with APL, you'll want to use commands like ) LOAD under 
program control. You can do this with “system functions,” all of which begin 
with a quad (0). For example, [1 OA D does the same thing as )2 LOAD. Some 
system functions have slightly different names than the corresponding system 
commands. For example, [1E X does the job of )ERASE. Also, there are many 
system functions that do entirely new things that no system command can do. 
One of these is OF MT, which you learned about in Chapter 6. 


Surprise! There are no exercises for this chapter. You should use the commands 
you've learned to play around with your stored workspaces, but take it easy with 
) DROP. 


Below is an alphabetical list of the system commands you learned in this chapter 
and a short explanation of each command. 


| )CLEAR Clears the active workspace— provides you with an empty 
| active workspace 
| )COPY wsname Copies the contents of an entire workspace into the active 
workspace 
)COPY wsname objects Copies the named objects from the named workspace into the 
active workspace 
)DROP wsname Drops (deletes) a workspace from storage 
)ERASE objects Erases the named objects from the active workspace 
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)FNS 


)LOAD wsname 


OFF 


)SAVE 
)SAVE wsname 


)VARS 
)WSID 


)WSID wsname 


)WSLIB or )LIB 


Lists the names of functions in the active workspace 


Clears the active workspace and loads a copy of the stored 
Workspace 


Signs you off of the APL system 


Saves (stores) a copy of the active workspace under its present 
name 


Saves (stores) a copy of the active workspace under the name 
indicated 


Lists the names of variables in the active workspace 
Shows the name of the active workspace 


Changes the name of the active workspace to the name 
indicated 


Lists the workspaces in your library or disk 


112 





Chapter $ 


Storage Facilities: Files 


MN UU - ll  "nE4 


note 


WHAT IS 
A FILE? 


ADVANTAGES 
OF USING 
FILES 


In this chapter, you will learn what a file is. You will also learn how to create 
files, store data in them, retrieve data from them, and erase them when you no 
longer need them. 


Some APL systems do not have a file facility like that described in this chapter. 
Refer to your system documentation or ask an experienced user if you don't get 
the answers you expect. 


Files provide data storage outside of workspaces. A major difference between files 
and workspaces is that only data can be stored in files, while workspaces can store 
both functions and data. This means that no actual work (computation) goes on 
inside files. Instead, you get the data from a file (that is, bring a copy of it into 
your active workspace), work on it, and then put it back in the file, if necessary. 


If the active workspace can be thought of as a desk, a file can be thought of as a 
filing cabinet in the same room. If you want something from the desk, you have 
itright at hand. But if you want to work on something in the filing cabinet, you 
have to get up and get it. And if you want to make sure the stuff doesn't get lost, 
you have to go put it back in the filing cabinet when you're finished. 


You may not have any need for a filing cabinet if you don't have many things to 
store. Your desk has a good amount of room for storing things. But if you need 
to store a lot of stuff, you're better off putting it in the filing cabinet. 


It's the same in APL. If you don't have much to store, you can store it in your 
workspace. But if you have lots of data, it will be more convenient to put itina 
file. Files are also nice for organizing your data. 

Files have many advantages over workspaces. The main ones are: 

e Files can hold much more data than a workspace. 


e Files remain active when you change workspaces. 
* Files give you extra storage without "stealing" any room from your workspace. 
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ISTICS OF 
FILES 


components 


component 
numbers 


tie numbers 


FILE 
FUNCTIONS 


ee 


Files have different characteristics than workspaces. The characteristics of files 
are listed below. 


You don’t automatically get files as you do an active workspace—you must 
create files. 

A file is composed of components. Each component can contain 

something different, as does a variable. 

Components can contain numeric or character data of any size or shape—from 
single numbers to matrices. Some components may even be empty. 

A component contains one thing at a time. 

When a file is first created, it has no components and is said to be empty. 
You add components to the file by appending them to the end of the file. 
Rather than having a name as variables do, a file component is identified by 
its number. The system numbers the components sequentially; that is, 1, 2, 
3, 4, and so on. This makes it convenient to refer to the components by their 
numbers. 

We change the data in file components by replacing them with new data. The 
data can be slightly different than the old data (catenate one element to the end 
of a vector and replace the old vector with it) or completely different (replace a 
single number with a matrix or with character data). 

To be active, a file must be associated with a number. We say that the file is 
tied to the number. This makes it convenient to refer to the entire file by its 
number. For instance, the expression to read the first component of a file tied 
to the number 33 is 


UFREAD 33 1 


All functions that deal with files begin with the characters DF. The 0 means 
that they are system functions (which we mentioned in Chapter 7), and the F 
Stands for “file.” There are almost two dozen functions to use with files, but 

we will look only at the simplest and most useful ones. 
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You can create a file using the command [1F C REATE. 
It has the format: 


' name! OFCREATE tie number 


The name is surrounded by single quotes because it is character data. The name 
can contain both letters and numbers, but it must begin with a letter. Different 
APL systems allow different lengths for file names; refer to your system 
documentation. The tie number is any positive whole number you choose. 


Let's create a file. Enter: 
'TEST' OFCREATE 1 


We know that the file has been created because no error message appears and the 
system returns us to the six-space indent. 


If we try to create another file with the same name, we get an error message. 


'TEST' OFCREATE 2 

FILE NAME ERROR 
'TEST' OFCREATE 2 

A 


Thus, you can see that it’s important for each file to have a unique name. 


Let’s put some data in the file. Any old data will do. Let’s create a variable: 
VAR<15 


VAR 
123 4 5 


Now let’s append it to the file: 


VAR OFAPPEND 1 
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We know this was successful since the computer displayed the number of the 
component it added to the file (1). (We'll omit this number in the following 
examples.) 


OFAPPEND has the format: 
data OFAPPEND tie number 


The data can be either some numbers or some character data, or the name of a 
variable that contains numbers or characters. If data is character data, it must be 
enclosed in single quotes. 


Let's append some more data to our TE ST file: 


22 OFAPPEND 1 
'THIS IS A TEST.' OFAPPEND 1 
DATA-3 3p'ONETWO3 ' 
DATA 

ONE 

TWO 


DATA OFAPPEND 1 
OFSIZE Now let’s check the file’s size. Enter: 


OFSIZE 1 
1 5 512 0 


This function has a simple format: | 
[IFSIZE tie number | 

Its result shows: 

The starting component number of the file (usually 1). 

The number of the component that will be filled (appended) next. 

The space (in bytes) taken up by the file. 

The growth limit for the file. A 0 means “no limit"—the file can grow to 


virtually any length (that is, until the computer you are working with runs 
out of storage). 


rh rr OO rll — 
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Items 3 and 4 will vary depending on the system you’re using. Note that item 
2 shows the next component to be filled. Since the size of our file is 1 5, we 
know that components 1 through 4 have already been used, and component 5 
will be the next component we append. 


Now let's read the stuff we've stored. Enter: 


OFREAD 1 3 
THIS IS A TEST. 


This result can be stored in a variable for further work: 


AE 1 3 


THIS IS A TEST. 
(S#' ')/5 
THISISATEST. 


We can change what we read: 
S«40S 
S 
IHIS 
But this doesn't affect the things in the file: 


OFREAD 1 3 
THIS IS A TEST. 


OFREAD has the following general form: 
OFREAD tie number component number 


If you try to read a component that doesn't exist, you get an error message: 
OFREAD 1 72 


FILE INDEX ERROR 
OFREAD 1 72 
A 
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OFREPLACE 


OFUNTIE 


To change a component in a file, you must replace the component: 


'TEST NUMBER TWO' OFREPLACE 1 3 
This function has the format: 
data OFREPLACE tie number component number 


If we read component 3 now: 


UFREAD 1 3 
TEST NUMBER TWO 


we see it's been changed. 
To deactivate a file, use OFUNT IE, which “unties” the file. 
OFUNTIE 1 


We can't read the file now: 


OFREAD 1 3 

FILE TIE ERROR 
OFREAD 1 3 
A 


This function has the format: 
OFUNTIE tie number(s) 
It's important to untie all files before removing a disk or resetting the system. 


On all systems, the ) OFF command automatically unties any files currently 
tied. 
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To activate a file that’s already been created, you must tie it: 


'TEST' OFTIE 7 


We used a different tie number this time. Any whole number will do, as long 
as it’s not already being used. (If you’re already using the number for another 
file, you'll geta FILE TIE ERROR.) We can read data now: 


DFREAD 7 3 
TEST NUMBER TWO 


Again, tie numbers are only temporary identifiers for a particular file. You can 
use a different tie number each time you tie the file. But if you tie many files, 
you must use a different tie number for each one. This is because the system 
wouldn't know which file you mean when you enter DFREAD 7 3 if two 
different files were tied to the number 7. 


To find out what files you have tied, enter: 


OFNAMES 
TEST 


A library number or disk name might be printed before the file name, depending 
on your APL system. 


To find out what numbers your files are tied to, enter: 


OFNUMS 
7 


If you have more than one file tied, ODFNUMS will return a vector of tie 
numbers. The order of the vector corresponds to the order of the list of file 
names produced by OFNAMES. 

A good technique for untying all files is 


OFUNTIE OFNUMS 


since OF NUMS contains the tie numbers of all your files. 
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[FERASE To erase a file you no longer need, use OF ERASE. Enter: 
'TEST' OFERASE 7 


This function has the format: 
name OFERASE  tienumber 


The file must be tied in order for you to erase it. Also, you must give both the 
file name and its tie number (to make sure you don't use the wrong tie number 
and erase the wrong file). The library number or disk name is required before 
the file name. 


[]FN AME S now shows that nothing's tied: 
OFNAMES 


Let’s create one more file. Enter: 


'TEST' OFCREATE 22 


This new file can have the same name as the old file, since the old one no 
longer exists. You can untie this file now: 


OFUNTIE 22 
OFLIB OFLIB shows what files you have. It has the form: 


OFLIB identifier 


The argument identifier is the library number or disk name. For example, on 
the APL* PLUS System for the PC, to list the files on the disk in the B disk 
drive, you would enter: 


OFLIB 1 
1 TEST 


Other file names could also display, depending on which disk was in the disk 
drive. 
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On some APL systems, the system command )F LIB will list your files. 


)FLIB 


1 TEST 


SUMMARY In this chapter, you learned how to use the file system functions shown in the 
following table. Note that many of these commands presume that you have a 
file tied. If you geta FILE TIE ERROR, it’s probably because you don't 


have a file tied. 


File Function 


data OFAPPEND tie number 


name OFCREATE tie number petn 


name l||FERASE tie number 

DFLIB ''orUFLIB identifier 
DFNAMES V — 

OFNUMS .W Lo oro 9608 
OFREAD tie number ou number 


data OFREPLACE tie number component number 


OFSIZE tie number 


; Stand aG Y 
name OFTIE tie number) 9^: ot 


DFUNTIE tie number(s) VESE 


Description 


Append data to the end of a file 

Create (and tie) a file 

Erase a file 

List the files in a library 

List the names of files currently tied 

List the tie numbers of files currently tied 
Read the data in one component of a file 
Replace data in a component with new data 


4 7..." Show the size of a file 


Tie a file 
Untie a file or files 


EXERCISES A. 1. Createafile named EXERCISE. 


2. Create a variable called MSG containing the message: 


FILE FOR EXERCISES IN CHAPTER 8. 


This is just an informative message to identify the file. Append it to the 


file. 


3. Create a variable called DAT A—a 3 by 3 matrix containing the numbers 
110, 150, 117, 35, 65, 79, 84, 114, 97. Append it to the end of the file. 


4. Create a variable called DAT A 2—a vector containing the numbers 
11.52, 3.72, 6.15. Append it to the end of the file. 
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10. 


11. 


Read in the data in component 2 and assign it to a variable named 
ITEMS. (Remember, this can be done with a single APL statement.) 


Read in the data from component 3 and assign it to a variable named 
PRICES. 


Write an APL expression to find the third price in PRICES. (HINT: 
Use indexing.) 


Write an APL expression to find the third row of ITEMS. 


We sell nuts, bolts, and wrenches in our store. Row 1 of ITEMS 
shows how many nuts we sold in each of the past three weeks, and rows 
2 and 3 show the same thing for bolts and wrenches. Write an APL 
expression to find the total number of nuts, bolts, and wrenches we sold 
in the past three weeks. (HINT: Use plus reduction.) 


Write an APL expression to find the total number of wrenches only sold 
during the three weeks. That is, find the row total for row 3 of ITEMS 
only. 


PRICES contains the prices we charge for our nuts, bolts, and 
wrenches. Write an APL expression to find out how much we charged 
for all the wrenches we sold during the past three weeks. 


Untie your EXERCISE file. 


Define a function called TIE that will tie the EXERCISE file to the 
number 277. 


Execute the function T I E. Check to see whether it worked by entering 
OFNAME'’S and then DFNUMS. 


Define a function called READ that displays the number of sales for the 
past three weeks from the file EXERCISE. That is, it displays the 
entire matrix stored in component 2. (Remember that the file is tied to 
277.) Run the function. 
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Write a function called TOT SALES that reads in both components 2 
and 3. It then totals the unit sales given in component 2 (finds total 
sales for each item for three weeks). Finally, it multiplies the totals by 
the prices to find the total sales. Run the function. (HINTS: In your 
function, assign the unit sales to the variable ITEMS, and the prices to 
the variable PRICES. The rest of the function is similar to Exercise 
A.11.) 


File system functions work with variables much as they work with 
numbers. For example, you can enter: 


IIENO-1 
' TEST! OFTIE TIENO 
OFNUMS 

1 


(If you didn’t untie the TEST file before entering this, you may have 
gotten an error message.) 


1000 OFAPPEND TIENO 
OFREAD TIENO,1 
1000 


(The comma combines the variable T I ENO with the 1.) 


Since file functions can use variables like this, you can assign 
component numbers to meaningful names and then use the names to read 
data. Enter: 


M-'FILE FOR TESTING EA ORERE 
M OFREPLACE TIENO,1 
MESSAGE<1 
OFREAD TIENO, MESSAGE 

FILE FOR TESTING EXAMPLES. 
OUFREAD 1 1 


FILE FOR TESTING EXAMPLES. 
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You can put all of this in a function to make things really “friendly.” 
First, let’s erase READ: 


)ERASE READ 


Then define anew READ function: 


VREAD DATA 
[1] OFREAD TIENO,DATA 
[2] V 
Now enter: 


READ MESSAGE 
FILE FOR TESTING EXAMPLES. 


1. Enter CLEAR toclear your workspace. Define a READ function to 
read in data from your exercise file. You should be able to do the 
following: 


READ ITEMS 
110 150 117 
35 65 79 
84 114 97 

READ PRICES 
11.52 3.72 6.15 


[HINTS: This function will be similar to the RE AD function we defined 
above, but it will use the tie number for EXERCISE (277). 
Remember to assign the correct component numbers to the variables 
PRICES and ITEMS before trying to run READ.] 


2. Write a function TOTAL that reads in a matrix and totals the rows in the 
matrix. You should be able to read in your unit sales data from 
EXERCISE and total it like so: 


TOTAL ITEMS 
377 179 295 
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3. Write a function called TOT SALE that shows how much we made on a 
particular item in each of the three weeks. That is, the result should be 
three numbers—each one is the unit sales for the week times the price of 
the item. You should be able to get the following results with your 
function: 


TOTSALE NUTS 
1267.2 1728 1347.84 

TOTSALE BOLTS 
130.2 241.8 293.88 


The function should: 


e read in the unit sales data 

e read in the prices 

¢ find the correct row in the unit sales matrix ITEMS 
¢ find the correct price in the variable PRICES 

e multiply the price by the correct row 


(HINTS: 1. To find the correct row, use a variable together with 
indexing: 
D-3 5p115 
D 
1 2 3 4 65 
6 7 8 9 10 
11 12 13 14 15 
X-2 
DIX;1 


67 89 10 
This also works for vectors: 


E-15 
ECX] 
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To make your function work, you have to assign the row numbers of 
items to variables: 


NUTS-1 


BOLTS-2 
WRENCHES<3 ) 


Create a file called SALE S. 


Create the following variables. 
SNOS-101 102 103 
MON-1 2 3 4 


SALES-3 4p107 62 97 108 80 72 
95 67 88 92 101 81 


Append these variables to the SALES file (first SNOS, then MON, 
then SALE S). 


SNOS are salesman numbers, and MON are the numbers for four 
months. SNOS corresponds to the rows of SALES; MON corresponds 
to the columns. 
Untie the SALE S file. 
Write a function called GET DATA that: 
¢ Ties SALES to the number 1076. 
* Reads in each of the three components in SALES and assigns them to 
the variables SNOS, MON, and SALES. (This is done so that the 
data will be in the workspace where we can work on it—there's no need 


for every function to read components from the file.) 


Run the function. 


126 


Storage Facilities: Files 


pr eS Sz 


5. Enter the following function SALESMAN, which assigns the number 
you give it to a variable S. 


VSALESMAN NUM 
[1] S-NUM 
[2] V 


6. Write a function MONTH that is similar to the SALESMAN function. 
MONTH assigns the number you give it to a variable M. 


7. Write a function PRINT that uses M and S to find the desired element 
of SALES. The functions should behave like this: 


SALESMAN 101 
MONTH 4 


PRINT 
108 


The function PRINT chose the row for salesman 101 (row 1) and 
the column for month 4 (column 4). 


[HINT: Use the selection techniques you learned in Chapter 4. For 
example, to get the result shown above, you could use 


(MON=4)/ (SNOS=101)/T11SALES 
108 


Remember that 101 and 4 were stored in variables by the functions 
SALESMAN and MONTH, though. 
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Notice that you've created a complete system. A complete (if short!) run 
using this system might go like this: 


GETDATA 
SALESMAN 103 
MONTH 1 
PRINT 

88 


)OFF 
FILES UNTIED 


If someone created this system for you, you could use it without ever 
knowing what a file is.] 
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INTERACTIVE 
FUNCTIONS 


Evaluated Input 


In this chapter, you will learn how to define "talkative" functions; that is, 
functions that will display messages requesting the information they need to 
complete a task. You will also learn about some more built-in APL 
functions—take, branching, and catenation with matrices. You will be introduced 
to some APL programming aids and see a sample application that stores and 
retrieves recipes in a file. 


Up to this point, we've used functions that get their data when we enter their 
names. For example, 


AVG 8 10 12 


4 PERIMETER 6 
20 


Some programs need to ask us for the data they need and then wait for us to enter 
it. For example, 


ASKAVERAGE 
WHAT NUMBERS DO YOU WANT TO AVERAGE? 
D: 


8 10 12 
THE AVERAGE IS 10. 


We call functions that ask for their data interactive, since they interact with you. 


Getting ASKAVERAGE to display a question is easy —we already know how 
to use character data in a function. The new part is the 0:. We say that the 
computer is in “evaluated input mode” when it prints this symbol. (This is 
known informally as “quad input.”) It is waiting for us to enter numbers (or a 
variable containing numbers) that it will use for data. We cause the computer to 
do this by including the statement: 


variable -0 
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in our function. Of course, variable can be any variable name you choose. Let's 
create the function ASKAVERAGE: 


v ASKAVERAGE 
[1] 'WHAT NUMBERS DO YOU WANT TO AVERAGE?' 
[2] VECTOR<O 
C3] ANSWER«(+/VECTOR)+pVECTOR 
[4] 'THE AVERAGE IS ',(8ANSWER),'.! 
[5] V 


Notice that the function needs no arguments, since it gets its data by asking for it. 
Notice also that we've left a blank between the del (V) and the function name. 
This is perfectly okay, and it's easier to read, so this is the style we'll use from 
now on. 


You can now go back and rewrite any of the functions we've created so far using 
evaluated input. 


Quad input works fine for numbers, but what about characters? Quad input will 
work with character data, but only if the person using the function remembers to 
enclose the data in single quotes. Since most casual users won't know that 
character data should be enclosed in quotes, you'll want to use a programming 
technique that will allow them to enter character data without the quotes. This 
technique is called “character input mode” or “quote-quad input mode.” You'll see 
in a minute where the “quote-quad” terminology comes from. 


Quote-quad input accepts letters and other characters without quotes. For example, 


HELLO 
e IS JERRY. WHAT'S YOURS? 
NICE TO MEET YOU, JIM. 


Notice that quote-quad input mode doesn’t cause the computer to display any 
special symbol. The computer merely places you on the next line (without a 
six-space indent) and waits for you to enter something. 
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Let's create the function HELLO: 


v HELLO 
a Pea NAME IS JERRY. WHAT''S YOURS?! 
2 «— 
[3] 'NICE TO MEET YOU, !',A,!.' 
[4] V 


Looking at the function HELLO, you can now see where the term "quote-quad" 
comes from. The symbol that you use in your function to accept character data 
without quotes is a quote-quad (I), which looks like a quad with a quote inside it. 
Using the quad and quote-quad input techniques, you can make your functions 
much friendlier and more flexible. 


In most cases you can interrupt your function to make a function stop (if you 
want to get out of it for any reason). It turns out that this doesn’t work with 
evaluated input or character input. The system is so set on your entering 
something that it won't let you get away with merely interrupting input. It keeps 
printing 0: , or jumping to the next line, until you actually enter something. 


To escape from evaluated input mode, simply enter a right arrow (>). The 
techniques for escaping from character input mode vary among APL systems. 
Refer to your system documentation or ask an experienced user. When you do 
escape from either mode, you return to immediate execution mode. 


The next sections introduce some additional built-in APL functions that will help 
you make full use of the quad and quote-quad techniques. 


One APL function useful with character data is catenation. We learned in Chapter 
3 that it can be used with vectors: 


V1-'HAM' 
V2-' BURGER' 


V1,V2 
HAMBURGER 


However, matrices have two dimensions, so we have to tell APL which 
dimension we want to connect the matrices along. (This is exactly like what you 
learned to do with reduction and compression.) 


131 


APL Is Easy! 





TAKE 


M1-3 3p'HISHERMY ' 
M2-3 30'CARBARTAR' 
M1,(11M2 

HIS 

HER 

MY 

CAR 

BAR 

TAR 


As in the case of reduction and compression, catenate with matrices selects the last 
dimension (rows) if you don't give it a specific dimension. 


That is, M1,[21M2 is the same as M1, M2 in this case. 


Take does exactly what its name says—it "takes" as many elements from its 
vector right argument as you tell it in the left argument. 


VECT-110 


S«'ONCE UPON A TIME! 
915 
ONCE UPON 


If the left argument is a negative number, the elements are taken from the end of 
the vector. 


 3J3TVECT 
“4ts 


8 
TIME 
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If you take more elements than the vector has, the vector is "padded" (or filled) 
with zeros (for a numeric vector) or blanks (for a character vector). 


12tVECT 
1234567839 10 0 0 
 12fVECT 
00123 45 67 8 9 10 
~“15t'OH HO! 
OH HO 


p^15t'0H HO! 
15 


Looping is a useful technique to use in writing functions. Looping is merely a 
way to make the computer do the same thing over and over again. Consider the 
function GUESS: 


GUESS 
I'M THINKING OF A NUMBER BETWEEN 1 AND 3. 
WHAT IS IT? 
ENTER YOUR NUMBER: 
[] : 


3 
I'M SORRY. THE NUMBER WAS 2. 
TRY AGAIN? 
YES 
HE YOUR NUMBER: 


3 
RIGHT! TRY AGAIN? 
YES 
ENTER YOUR NUMBER: 
0: 


3 
I'M SORRY. THE NUMBER WAS 1. 
TRY AGAIN? 
NO 
The computer repeated the section: 


ENTER YOUR NUMBER: 
0: 
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Tests for 
Conditional 
Branches 


three times. It continues to repeat this section until you tell it to stop by entering 
NO in response to the question TRY AGAIN? 


Looping is done in APL using the “branch” function. This function sends the 
computer to another line in the program. Branch has the form: 


—4 


By itself, this function isn't so useful. In the example above, it says "go to line 
[4] no matter what.” It is much more useful to use a conditional branch—for 
example, “go to line [4] only if a certain condition is met" (only if the user 
answers Y E S, for instance). 


To get a conditional branch, we use a test. This type of branch takes the form 
shown below. 


-(!Y'-110)204 


The test appears between the two parentheses so that it will be executed first. In 
the example above, the test checks to see whether the first letter of input 
(quote-quad input) is a Y. If itis, the answer is true, a 1: 


>1p4 


The expression 1 4 just gives the number 4 (it says, “give me one 4”), so we 
wind up with: 


+4 


and the computer goes to line [4]. If the user entered anything else (NO, for 
instance), the answer to the test would be false, a 0: 


>0p4 
Taking 0 of something (that is, reshaping it with 0) leaves a vector with no 


elements, therefore branching to no other location; the function continues on to 
the next line. In the case of GUESS, this caused the function to stop. 
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Let's define a function to see how this works. FLIP “flips a coin,” checks to 
see if the answer is 1 or 2, and then displays HEADS or TAILS depending on 
the answer. It then gives you another chance. Enter: 


v FLIP 

[1] | N-2 5p'HEADSTAILS' 

[2] (€92)=1 20/[11N 

[3]  'TRY AGAIN? (YES OR NO):! 
[41]  -C'Y'=1t0)p2 

[5] v 


Let's try it: 


FLIP 
HEADS 
TRY AGAIN? (YES OR NO): 
YES 
TAILS 
oo AGAIN? (YES OR NO): 


The test in line [ 4] accepts quote-quad input and then checks to see if you 
entered the answer YES (or YEAH or YUP—the only requirement is that the 
first letter be a Y). If you enter YE S, the computer goes back to line [2] and 
"flips the coin" again. If you enter NO, the program comes to an end. 


Using line labels is a much better way to do branching. The technique is 
simple—you just give names (labels) to certain lines of a function and then have 
the system branch to those lines according to their names. In other words, 


>LINE1 
is just as good as: 
=1 


as long as you've put the label LINE 1 on line [1] of your function. Using 
labels, the FL I P function might look like this: 
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v FLIP2 
] N-2 5o'HEADSTAILS' 
] MORE: ((?2)=1 2)/(C11N 
] 'TRY AGAIN? (YES OR NO):' 
] —-(C'Y!'z1tDDoMORE 


The label is separated by a colon from the APL statement on the line. Of course, 
you can use any name you want for the label. You might prefer names that tell 
you what's happening—like EN D, LOOP, and so on. You can't have a label 
with the same name as a variable, though, so be sure to pick a unique name. 


The great thing about labels is that we don't have to change our branches every 
time we edit the function. For example, if we decide to add a line to FLI P2, the 
present line [1] will become line [2]. So the function won't work right 
unless we change the branch part of the function. But if you use line labels, the 
branch will always go to the correct line, since it looks for the name instead of the 
line number. 


Since line labels are so helpful, we'll use them in all our functions with 
branching from now on. 


Now we're ready to define GUESS, a more complicated function. It includes 
two tests—one to check your number, and one to check for a YES or NO 
answer. 


v GUESS | 
[1] 'I''VE PICKED A NUMBER BETWEEN 1 AND 3.! 
[2] '"WHAT IS IT?' 
[3] LOOP: 'ENTER YOUR NUMBER:' 
[41 NUM-Uü 
[5] ANS-?3 
[6] —-(ANS-NUM)DpOK 
[7] 'T''M SORRY. THE NUMBER WAS ',(¥ANS),'.' 


[8] 'TRY AGAIN?' 
[9]  -('Y'-11D)0LOOP 
[10] 70 


[11] OK: 'RIGHT! TRY AGAIN?' 
[12] (C'Y'zi1fD)2pLOOP 
[13] V 
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Line [5] calculates the computer's answer by generating a random number 
between 1 and 3. Line [6] checks to see if the computer's answer and your 
guess are the same. If so, the computer goes to line [111], displays RIGHT!, 
and asks if you want to try again. If you say YES, the computer returns to line 
[3]. If you say NO, it stops. 


If the test in line [6] shows that the answer and your guess are not equal, the 
computer continues to line [ 7 1, displays the correct answer, and asks if you 
want to try again. Line [9] uses the same test as line [121]. If your answer is 
NO, the computer goes to line [101], which says “go to 0.” This tells the 
computer to stop (actually, to leave or exit from) the function. 


Now that you've learned how to use loops, you may write a program with a 
so-called "endless loop" that you can't get out of. This will generally happen 
because you forget to include the test—which is the “exit” from the loop. If this 
happens, and you notice that the computer is doing the same thing for an overly 
long period of time, you can always interrupt the function. The computer will 
print the line number of the function where it stopped. You can then list the 
function and see if something's wrong. Remember to enter: 


)SIC 
before you edit the function, to avoid getting a DEFN ERROR. 


At this point, we'd like to introduce a few more tools to make your functions 
better. These tools are comments and local variables. 


We use comments to describe what's happening in a function. A comment is 
merely a statement within a function that's not executed. It says something to the 
person reading the function rather than saying something to the computer. To tell 
the computer that what you are entering is a comment, you must precede the 
comment with a “lamp” symbol (A). It is called a lamp since it precedes the text 
that "illuminates" what is happening in the function. The following function 
includes a comment. 


v NOBLANK CHARVECT 
[1] A REMOVES BLANKS FROM CHARACTER VECTOR 
[2] (CHARVECT#' ')/CHARVECT 
[3] V 
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Local and Let's define a function to compute sales data for a week given the units sold: 
Global 
Variables VCOMPUTESALES 

[1] a COLLECT UNITS SOLD, COMPUTE SALES 

[2] "ENTER SALES FOR THIS WEEK:' 

[3] SALES-[U 

[4] 'TOTAL SALES ',*9*/SALESxPRICE 

V 


Let's create the price variable: 
PRICE<10.30 


To see what happens, let's create a SALE S variable: 
SALES-105 
Now run the function: 


COMPUTESALES 
ENTER SALES FIGURES FOR THIS WEEK: 
[] : 


175.24 159.4 211.35 201.56 213.45 
IOTAL SALES 9898.3 


Now check SALE S again: 


SALES 
175.24 159.4 211.35 201.56 213.45 


What happened? The function replaced our old variable SALES with the new 
figures. If you look at line [3] of COMPUTESALES, you'll see that our 
response is assigned to SALE S, which “wipes out" whatever was in SALES 
before. 
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Local variables allow us to “lock” variables inside a function. We merely add the 
variable's name to the function header, separated from it by a semicolon: 


v COMPUTESALES 


[6] [OLIO] 

[0] COMPUTESALES;SALES 

[6] V 

Now let's redefine SALE S: 
SALES-105 


Then run the function again: 


COMPUTESALES 
ENTER SALES FIGURES FOR THIS WEEK: 
[] : 


10 20 30 40 50 
TOTAL SALES 1545 


Check the variable SALES again: 


SALES 
105 


The function didn’t change the number in SALES this time. 


The technique of using local variables is useful in protecting variables you've 
created in the workspace. (We call the general workspace variables “global 
variables" to distinguish them from local variables, which are meaningful only in 
the context of a particular function.) The technique also allows you to use the 
same variable names in many functions. For example, a sales system might 
contain many variables called SAL E S—one main (global) variable and lots of 
minor (local) ones locked inside functions. 
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-Last but not least, local variables save room in the workspace, because local 


variables are erased as soon as the function has finished running. To see how this 
works, let's erase SALES: 


)ERASE SALES 
SALES 

VALUE ERROR 
SALES 


^ 


We geta VALUE ERROR, since SALES no longer exists. Now run 
COMPUTESALES: 


COMPUTESALES 
ENTER SALES FIGURES FOR THIS WEEK: 
[]: 


25 35 45 55 65 
TOTAL SALES 2317.5 


Now look for SALES: 


SALES 
VALUE ERROR 
SALES 


A 


Even after running COMPUTESALES, no SALES variable exists in the 
workspace. 


We can use our new-found skill with programming to build some useful functions 
to work with files. 


Let’s say you want to build a file containing your favorite recipes. Each 


component will contain a single recipe. We want to put the recipes in the file 
using a function. 
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Let's think about what we have to do. A recipe is a good example of a character 
matrix. For example: 


RECIPE-3 12p'1 CUP FLOUR PINCH SALT 
! 


1 EGG 
RECIPE 

1 CUP FLOUR 

PINCH SALT 

1 EGG 


It's too difficult to do a real recipe this way. It would be easier to have a function 
build the matrix line by line. The function would add lines using catenation: 


NEWLINE-1 120'BAKING PWDR ' 
RECIPE,L1]NEWLINE 

1 CUP FLOUR 

PINCH SALT 

1 EGG 

BAKING PWDR 


The function needs to assemble a recipe like this, then put it in the file. Also, we 
have to build in a “keyword” like END or STOP so the function will know 
where the recipe ends. 


Define the function: 


V FILERECIPE;RECIPE;NEWLINE 
[1] n COLLECTS RECIPE AND PUTS IN FILE 


[2] ' RECIPES! OFTIE 9971 
[L3] ' ENTER YOUR RECIPE LINE BY LINE' 
[4] ' (USE "END" TO STOP):'! 


[5] RECIPE<60tO 

[6] RECIPE- 1 60 pRECIPE 

C7] L1:'NEXT LINE:' 

C8] NEWLINE<60TO 

[9] >CA/'END'=3tNEWLINE ) pL2 
[10] P STU LSU enema 
[11] L1 

[12] L2:RECIPE OFAPPEND 9971 
[13] OFUNTIE 9971 

d 'DONE. NEW RECIPE FILED.' 
1 V 
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This function ties the file for you, then collects the text for the recipe. The tie 
number should be one that you're unlikely to use to tie any other files you might 
be working with, since file tie numbers used at the same time must be unique. 


Lines [5] and [6] gather the first line of the recipe and turn the line into a 
one-row matrix (so it can be catenated using matrix techniques). Lines [7] and 
[8] gather the next recipe line, and line [9] checks to see if the first three 
characters are the word END. If not, the computer goes on to line [10], which 
catenates the line to the end of the recipe. Line [11] returns to line [7] for 
the next line of the recipe. When you enter END, the computer stores the recipe. 


making sure the Remember, every line in the recipe must be of equal length for us to catenate 

lines are equal them. We use "take" (60111) to make sure each line is of equal length. “Take” 
pads each line of the recipe with blanks. When the function is finished, the recipe 
is a matrix with 60 columns and as many rows as you entered lines. 


At the end of the function, the system unties the file again. Note that the 
function assumes that a file called REC I PES has already been created. 


Let's try it. Create the file RECIPES: 
' RECIPES! OFCREATE 1 


Then untie it: 


OFUNTIE 1 


Now run the function: 


ENTER YOUR RECIPE LINE BY LINE 
(USE "END' TO STOP): 


COOKIES 

NEXT LINE: 

(Just press RETURN or ENTER to get a blank line.) 

NEXT LINE: 

GO TO GROCERY STORE. 

NEXT LINE: 

BUY A BAG OF YOUR FAVORITE COOKIES. 
NEXT LINE: 
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TAKE HOME, OPEN, AND EAT. 
NEXT LINE: 

END 

DONE. NEW RECIPE FILED. 


We can read the recipes using OF READ: 


'RECIPES' UFTIE 1 
OFREAD 1 1 
COOKIES 


GO TO GROCERY STORE. 


BUY A BAG OF YOUR FAVORITE COOKIES. 
TAKE HOME, OPEN, AND EAT. 


Or, to make things friendlier, we could define a function READ: 


V READ;ANS 
[1] A READS RECIPES STORED IN FILE 
[2] !' RECIPES! OFTIE 3371 
[L3] 'WHAT IS THE NUMBER OF THE RECIPE?' 
[4] ANS-U 


[5] DFREAD 3371,ANS 
[6] OFUNTIE 3371 
[7] V 


READ 
WHAT IS THE NUMBER OF THE RECIPE? 
[] : 


1 
COOKIES 


GO TO GROCERY STORE. 
BUY A BAG OF YOUR FAVORITE COOKIES. 
TAKE HOME, OPEN, AND EAT. 


We might not remember which component is which, but we can make 
FILERECIPE "smarter" so that it keeps a "directory" we can read. We can 
build a directory by taking the first line of each recipe (the title of the recipe) and 
storing it in a separate matrix in the file. 
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branching to 
more than 
one line 


In fact, it might be better to build a system with small functions doing each 
job—tying the file, keeping the directory, and so on. We'll use a main program 
(also called a driver function) to run all the other ones. 


The main program would look like so: 


v RECIPES 
[1] A MANAGES RECIPE SYSTEM 
[2] IIEFILES 
[3] LO:'LIST, READ, aria OR QUIT?! 


[4] '(L, R, A, OR Q) 

[5] sect LRAQ'-110)/L1, L2, L3,L4 
[6] ' PLEASE ENTER L, R, A, OR Q.' 
[7] -L0 

[8] L1: LISTDIRECTORY 

[9] >LO0 

[10] L2: READREC 

[11] LO 

[12] L3: ADDREC 

[13] L0 

[14] L4: OFUNTIE 1111 2222 
[15] V 


Notice that line [5] uses a new branching technique. The technique, which uses 
compression, allows the function to branch to different lines, depending on your 
response to the question on line [ 3].If you enter A: 


'LRAQ!' 2! A! 
0010 
00 1 0/L1,L2,L3,L4 


The 1 in the compression vector matches up with the label L 3, so the computer 
goes to line [12] and runs the ADDREC program. Then it returns to line 

[3] and asks you what you want to do now. Similarly, if you answer L, the 
computer goes to line [8], and so on. You're always returned to line [3] until 
you enter Q for QUIT. 
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trapping errors There’s one other new technique in this function. Line [6] reminds you that 
you must enter L, R, A, or Q. Since the test (line [5] ) checks only for these 
four letters, any other response (like X, Z, or G) will cause the computer to go on 
to line [6], because we didn't tell it to goto [L1], [L2], (L3],or 
[L4]. So we catch ourselves in line [6], print a reminder, and go back to the 
beginning. 


tying files TIEFILES, the first part of the recipes system, is an easy one: 
v TIEFILES 
a TIES FILES FOR RECIPE SYSTEM 


] 

] 'RECIPES' OFTIE 1111 
] ' DIRECTRY' OFTIE 2222 
] 


We want two files so we can store the directory in a separate place. (This is not 
really efficient, but it has an advantage we'll see in a minute.) 


Let's make a fresh start by erasing our old RECIPES file: 


' RECIPES! OFTIE 3371 
' RECIPES! DFERASE 3371 


Now let's create a new set of files for our new system: 


' RECIPES' OFCREATE 1 
' DIRECTRY'! OFCREATE 2 


(We've deliberately spelled the name of the second file as DI RECTRY to keep it 


to the 8-character limit of some APL systems.) Since TIEFILES will tie 
these for us, let's untie them now: 


OFUNTIE OFNUMS 
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LISTDIRECTORY comes next. Enter: 


v LISTDIRECTORY;NUMS;DIR 
[1] A PRINTS DIRECTORY FOR RECIPES SYSTEM 
[2] DIR-UFREAD 2222 1 
[3] NUMS<11tpDIR 
[4] 'Q< >F5,55A1' OFMT (NUMS;DIR ) 
[5] V 


The expression on line [ 3] figures out the number of rows in the directory 

(11 DI R—the first number in the shape of the matrix), and then strings it out 
(using 1). Line [ 4] then formats the numbers next to the directory entries. The 
Q< > partis necessary if we want to have spaces displayed between the 
numbers and the entries. 


It's easy to see why it's important to have a separate file for the directory—that 
way the recipe numbers start with 1 (that is, they start in component 1 of the 
RECIPES file). 


READREC comes next. It assumes that you have listed the directory and know 
the number of the recipe you want. 


v READREC;RECNO 
[1] A DISPLAYS A RECIPE BY NUMBER 
[2] 'READ WHICH RECIPE (BY NUMBER):' 
[3] RECNO<UO 
[4] OFREAD 1111,RECNO 
[5] V 


ADDREC comes last. It's very similar to FTLERECIPE, except that it uses 
55 columns for the recipe lines instead of 60. Enter: 


v ADDREC;RECIPE;NEWLINE;DIR;NEWENTRY 
[1] a COLLECTS AND FILES RECIPE 
[2] 'ENTER YOUR RECIPE LINE BY LINE' 
[3] ' (USE “END” TO STOP):' 
[4] RECIPE-551Uü 
[5] RECIPE- 1 55 pRECIPE 
[6] L1:'NEXT LINE:' 
[7] NEWLINE-551U 
[8] —(^/'END'-31NEWLINEDQOL2 
[9] RECIPE<RECIPE,CIINEWLINE 
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updating the 
directory 


starting the 
system 


running the 
system 


>L1 

L2:RECIPE OFAPPEND 1111 
DIR-UFREAD 2222 1 
NEWENTRY- RECIPE [1;1 
DIR-DIR,UL1]NEWENTRY 

DIR OFREPLACE 2222 1 
'NEW RECIPE FILED.' 

V 


rea nm rmrrm rm mm 
IL ed ee ee ee 
“JO On & WD Hm © 
bd LJ LJ LJ bd LJ LJ LJ 


Just like in FTILERECIPE, we continue to add lines until the user enters END. 
Then the recipe is put in the file. 


Lines [12] through [15] keep the directory up-to-date by reading in the old 
directory, getting the new title, and adding it to the bottom of the directory matrix. 
The expression VEWENTRY-RECIPEL1;] online [13] takes the first 
row of the recipe—the title. Line [151] returns the new, updated directory to the 
file. 


To get this system started, we have to put something in the DI RECT RY file, so 
that ADDREC will find something there when it reads component 1 (line [12] 
of ADDREC). Otherwise, we'llgeta FILE INDEX ERROR. However, we 
don't really want anything in the directory yet. So we "fool" APL by putting an 
empty matrix with 55 columns and no rows (0 550! ' ) in the directory 
file. 


Enter: 


TIEFILES 

BLANKROW<0 559p! ! 
BLANKROW OFAPPEND 2222 
OFUNTIE OFNUMS 


Now we're ready to insert a recipe. 


RECIPES 
LIST, READ, ADD, OR QUIT? 
Par R, A, OR Q): 


ENTER YOUR RECIPE LINE BY LINE 


(USE “END” TO STOP): 
GOAT STEW 
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NEXT LINE: 

(Press RETURN or ENTER to get a blank line.) 
NEXT LINE: 

FIND LARGE GOAT. 

NEXT LINE: 

PUT IN LARGE KETTLE WITH CAMP AX. 
NEXT LINE: 

BOIL 12 HOURS. 

NEXT LINE: 

THROW AWAY GOAT AND EAT AX. 
NEXT LINE: 

END 

NEW RECIPE FILED. 

LIST, READ, ADD, OR QUIT? 
a R, A, OR Q): 


1 GOAT STEW 
LIST RECIPES, READ ONE, ADD NEW ONE, OR QUIT? 
(L, R, A, OR Q): 


R 
READ WHICH RECIPE (BY NUMBER): 
[] : 


1 
GOAT STEW 


FIND LARGE GOAT. 

PUT IN LARGE KETTLE WITH CAMP AX. 
BOIL 12 HOURS. 

THROW AWAY GOAT AND EAT AX. 

LIST, READ, ADD, OR QUIT? 

(L, R, A, OR Q): 

Q 


SUMMARY 1. You can get the computer to collect numeric input by including a line like: 
A-0 


in your function. This is cailed “evaluated input” or “quad input.” 


148 


APL Programming Techniques 


a ——————— ————— 
2. Youcan get the computer to collect character input by including a line like: 
A-D 
in your function. This is called “character input" or "quote-quad input." 


3.  Catenation works with matrices, but you have to include the dimension (such 
as M1, [11M2) if you want the system to add rows rather than columns. 


4. "Take" (f) takes as many elements from a vector as you tell it to. 


5. Looping is done using the “branch” function (>). Functions can branch to a 
line number or a line label, but labels are more meaningful, and they won't 
change if line numbering changes. 


6. Comments are included in a function to summarize in words what the 
function does. They must be preceded by a lamp symbol (a) so that the 
computer will not interpret them as part of the function. 


7. Local variables are variables "locked inside" functions. Using local variables 
keeps functions from changing your general workspace variables (global 
variables) and also saves room in the workspace. 


8. Youcan use functions to collect data, store it in files, and retrieve it. 


EXERCISES A. 1. Write a new version of DIE (from Chapter 5) called ASK DIE that 
rolls the die, then gives you another chance. The function should 
produce the following display: 


ASKDIE 
5 
TRY AGAIN? (YES OR NO): 
YES 


2 
o AGAIN? (YES OR NO): 
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2. Write the function ADDER, which produces the following display: 


ADDER 
ENTER NUMBERS TO BE ADDED: 
O: 


107 542 122 889 
THE TOTAL IS 1660. 


3. Define a function called ASKREPEAT that repeats the character you 
enter. ASKREPEAT should produce the following display: 


ASKREPEAT 
ENTER THING TO BE REPEATED: 
* 


REPEAT HOW MANY TIMES? 
[] : 
13 


oe oo Ax A Xx Xx Xx Xx X x 


4. Copy your HI ST function (from Chapter 5) into the active Workspace 
[use ) COPY MYWORK HIST). If you didn't save the function, copy 
itin from LESSONS. Use HI ST inside a new function called 
ASKHIST. ASKHIST should produce the following display: 


ASKHIST 
ENTER FOUR NUMBERS FOR BAR CHART: 
[] : 


612 3 1 
OOOO00 
OOOO00000000 
DU 


[] 


B. Design and create a system for collecting information on your household 
goods. The system should contain three main functions (INVST ART, 
ENTER, and LI ST) and two subfunctions (GETN AME and 
GETDETAILS). (A subfunction is a function called by another function.) 
INVSTART merely ties the inventory file. ENTER collects data on your 
household inventory and files it. LIST reads in the data and lists it. 
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LIST is the longest function in the system, so we'll give it to you. 


v LIST;DIR;NUMS;NUMBER;NAMES;NAM; DET 
[1] a MANAGES HOUSEHOLD INVENTORY SYSTEM 
[2] Li: 'DIRECTORY, ITEMS, OR QUIT? (D,I,Q):' 
[3]  »('DIQ'-110)/DI,ITEMS,EXIT 
[4] 'PLEASE ENTER D, I, OR Q' 
[5] Lt 
[6] DI: DIR<OFREAD 1068 2 
[7] NUMS<11tpDIR 
[8] 'Q< >I5,20A1' OFMT (NUMS;DIR) 
[9] L1 
[10] ITEMS: 'LIST WHICH ITEM (BY NUMBER)?! 
[11] NUMBER-D 
[121 NAMES<OFREAD 1068 2 
[13] DETAILS<OFREAD 1068 3 
[142  NAM-NAMES ENUMBER ; 1 
[15] DET<DETAILS LNUMBER;] 
[16] NAM, DET 
[17] >L1 
[18] EXIT: 
V 


This function may look complicated, but all it does is read in and list either 
the directory or the detailed description of an item, similar to RECIPES. 
The only difference is that “individual items" are merely single lines 
(consisting of two parts—the item name and the item details) instead of an 
entire matrix. 


Since the things we're interested in are single lines, we can store them in two 
matrices (one for names, one for details). These matrices are located in 
components 2 and 3 of the file INVENTOR. The function LIST uses the 
expressions NAMESENUMBER;] and DETAILS(NUMBER; ] to pull 
out the rows (item name and details) we want. Then it prints the two parts 
with the expression NAM , DET. 


Notice that the NAME S matrix is also used for the directory. This is why we 
store the names and details in different components. 


ENTERisalittle different, since it calls two subfunctions, so we'll give that 
to you too. 
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V ENTER 
[1] GETNAME 
[2] GETDETAILS 
[3] "NEW ITEM FILED.' 


V 


The functions left for you to do are INVSTART, GETNAME, and 
GETDETAILS. GETNAME and GETDETAILS work similarly to the 
first few lines of FILERECIPE and ADDREC. They read in what's in 
the file (names and details), gather a single line, add it to the bottom of the 
matrix, and replace the matrix in the file. The names should be 20 columns 
long (20 t 0) and the details 35 columns long. (Actually, you can use more 
columns, but our solution uses 20 and 35.) 


A sample run might look like this: 


INVSTART 

ENTER 
NAME OF ITEM: 
19'' COLOR TV 
SERIAL NUMBER, DATE PURCHASED, PRICE: 
R82544714A 05/11/82 $421.63 
NEW ITEM FILED. 


LIST 
DIRECTORY, ITEMS, OR QUIT? (D,I,Q): 
D 


1 19'' COLOR TV 
DIRECTORY, ITEMS, OR QUIT? (D,I,Q): 
I 


LIST WHICH ITEM (BY NUMBER)? 
O: 
1 
19'' COLOR TV R8254471A 05/11/82 $421.63 
DIRECTORY, ITEMS, OR QUIT? (D,I,Q): 
Q 


Notice that, since the details are stored in one line, it is up to you to space out 
the three items properly. We left four spaces between the detail items, which 
works well. 
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Before running your system, be sure to start it up properly: 


' INVENTOR' OFCREATE 5 

M-'FILE FOR STORING INVENTORY DATA. USE 
<INVSTART>, «ENTER», AND «LIST» WITH FILE.' 

M OFAPPEND 5 

(0 20p' ') OFAPPEND 5 

(0 35p'! ') OFAPPEND 5 


(These last two steps are necessary because ENTER will be looking for 
something in the file.) 


OFUNTIE 5 


There are lots of ways this system can be enhanced. For example, you can add 
items to the details list, such as place purchased, location in house, and so on. 
You can also store each detail in a separate component and have LIST ask 
you which details you want to see. Many variations are possible, but we'll 
leave it to you to tailor the system to your own needs and desires. 


. Design a simple system to collect and format names and figures for a 
household (or any sort of a) budget. The function BUDGET collects and 
formats the data. The function SHOWBUDGET merely lists the data that 
BUDGET collected. 


A run using BUDGET might look like so: 


BUDGET 
ENTER BUDGET ITEMS ("END" TO STOP): 
FOOD 
NEXT ITEM: 
RENT 
NEXT ITEM: 
GASOLINE 
NEXT ITEM: 
ENTERTAINMENT 
NEXT ITEM: 
END 
ENTER BUDGET FIGURES FOR 4 ITEMS: 
O: 


250 431.72 85 125 


153 


APL Is Easy! 


BUDGET IS: 

FOOD $250.00 28.0°/° 
RENT $431.72 48.4»/* 
GASOLINE $85.00 9.5°/°e 
ENTERTAINMENT $125.00 14.0°/° 
TOTAL $891.72 100.0°/» 


DON'T FORGET TO )SAVE IF THIS IS THE FINAL VERSION. 


The idea is that you can define as many different budgets as you like (by 
running BUDGET again), and the function will always tell you what the 
total budget amount is and what percentage each item is of the total. You 
keep defining new budgets until you find one that looks reasonable, then you 
enter ) SAVE. Next time, you don't need to run BUDGET. You just run 
SHOWBUDGET, which uses the global variables created by BUDGET. 
SHOWBUDGET prints the same report as BUDGET, except that it omits 
the BUDGET ISand DON'T FORGET lines. 


Here's SHOWBUDGET: 


v SHOWBUDGET 
[1]  & DISPLAYS BUDGET CREATED BY BUDGET FUNCTION. 
[2]  '' 
[3] FSB OFMT (INAMES;N;PERCENT) 
[4] 44p'-! 
[5] FSB OFMT (T;+/N;100) 
V 


This should give you some clues about how BUDGET works. 
SHOWBUDGET uses the same format string (FSB) that BUDGET does, and 
it uses F SB for the “meat” of the report as well as the total line. The 
underline is produced by 440! ~', and T is the word TOT AL, produced by 
the following sequence: 


T<20t'TOTAL' 
T<1 20pT 
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The variable N contains the budget numbers, and the expression + / N finds 
the total budget figure. We "cheat" with the total percentage figure—we just 
use 100 instead of adding up the percentages. (The total will always be 99.9% 
or so, due to rounding.) 


Otherwise, BUDGET is very much like the other data-gathering functions 
you’ ve defined in this chapter. Two new tricks are included in it, though, 
which are explained below. 


The line: 
ENTER BUDGET FIGURES FOR 4 ITEMS: 
is produced using the function line: 


"ENTER BUDGET FIGURES FOR ',(#1tpINAMES),' 
ITEMS: ' 


The expression in parentheses takes the first number of the shape of 

INAMES (item names), just like we did to produce the directory in Exercise 
B. Then it turns the number (the number of rows in IN AME S) into character 
data. 


The percentage figures are found by totaling the budget figures (TOT * / N) 
and then dividing each figure by the total and multiplying by 100: 


PERCENT-100xN*TOT 
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SORTING 





In this chapter, you will learn about APL functions that sort data, manipulate data 
in a variety of ways, and perform math functions—from rounding numbers to 
solving simultaneous equations. Unlike the rest of the book, this chapter need 
not be read straight through; you can browse through it and read only the sections 
in which you are interested. 


Up to this chapter, this book has attempted to build your knowledge of APL 
step-by-step, introducing new functions along the way to help solve new 
problems. The final objective was to be able to build applications such as those 
illustrated in Chapter 9, using a set of user-written functions incorporating files, 
formatting, and many primitive APL functions. 


Chapter 10 is a little different. It's an “APL potpourri,” introducing APL 
functions that perform many standard computing tasks—such as sorting data, 
rounding numbers, locating data, and performing various mathematical functions. 
This chapter is meant to give you a taste of some of the more advanced things 
APL can do, giving you some useful tools and also whetting your appetite for 
other, more detailed APL textbooks. 


Rather than read this chapter straight through, you may want to use the keywords 
in the margins to find the topics you are interested in, and read only those 
sections. 


Sorting is done in APL using the functions “grade up” (4) and "grade down" (Y). 
Grade up and grade down return the indices required to sort the data in ascending or 
descendirg order. For example, 


462 80 47 24 
4312 


Y62 80 47 24 
Z 3 4 
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The first example says, “To sort in ascending order, we need the fourth element 
(24) first, the third element (47) second, and so on." Thus, to sort the data, we 
have to use grade up/down along with the index function: 


DATA-62 80 47 24 


ADATA 
4312 

DATATADATA] 
24 47 62 80 

DATALYDATA] 
80 62 47 24 


When two identical values are found in the data, the left-most value is given the 
lower index. For example: 


DATA-62 80 47 24 80 


ADATA 
43125 


YDATA 
2513 4 


DATALADATA] 
24 47 62 80 80 


DATALY DATA] 
80 80 62 47 24 





If you sort a matrix, the grade functions sort along the first dimension. They treat 
the first column of the table as a vector and sort it, moving to the second column 
only if there are duplicates in the first column. 


DATA2-4 2054 100 22 23 15 49 62 99 
DATA2 


54 100 
22 23 
15 49 
62 99 
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YDATA2 
4123 
ADATA2 
342 4 
DATA2E4DATA2;1 
22 23 
22 49 
54 100 
62 99 


The following example shows how to reorder a matrix based upon the significance 
of the columns. 


DATA-5 3p2 75 5 217 79 11.5 11 4 
DATA 


rR re ~] OF DO 
Eom ~] AQ ~] 
A Cn OO rm Oh 


To reorder using the second column as the most significant, the first as the next, 
and the third as the least significant: 


ADATAL;2 1 3] 
1 3 


On 
Aa 


DATALADATAL;2 1 31;] 


-JN Cm Lr 
- -JJbhN Pe 
OO Or On c 


To sort character data, you must use a sorting sequence as a left argument to A or 
Y. A convenient sorting sequence to use is OAV, the “atomic vector," which 
contains all possible characters used by the APL* PLUS System. For example: 
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ROUNDING 


LOCATING 
DATA 


NAMES<4 Ap'JIM JUNEJOHNJOAN' 
NAMES 


JIM 

JUNE 
JOHN 
JOAN 


DAV4ANAMES 
143 2 


NAMES COAVANAMES; ] 
JIM 
JOAN 
JOHN 
JUNE 


Also, a vector containing the alphabet can be used in place of DAV. 


To do rounding, we use the APL functions "floor" (L) and “ceiling” (T ). 
These functions give back either the next lowest whole number (floor) or the next 
highest whole number (ceiling). For example, 


L4.1 4.9 “1.2 
44 "Z 

[4.1 4.9 “1.2 
9 9» 4 


As you can see, however, this is not exactly rounding. With rounding, we want 
4.1 to round down to 4, and 4.9 to round up to 5. So we use a little formula: 


L.5 + 4.1 4.9 “1.2 
45 71 
The addition of .5 pushes 4.9 up above 5, so L correctly rounds it to 5. 
Often, you are interested in whether something exists (“Did I have any sales to 
customer 515 last month?"). If it exists, you would like to find out where it is 
(“Which salesman made that sale?"). We looked at one way of answering these 


questions in Chapter 4, but we will examine some other ways of answering them 
in this section. 
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Membership When we just want to know whether something exists or not, we can use the 
function “membership” (€), sometimes called “element of." 


5€12 3456 
1 


This statement asks the question, "Is 5 an element of the series 1 through 6?" 
S€0 6 99 
0 


This statement asks the question, “Is 5 an element of O 6 99?" 
The answer is either true (1) or false (0). 


5 6 11 € 110 
110 


The statement above asks the question, “Is 5 an element of 1 10, is 6 an element 
of 110, and is 11 an element of 1 10?" 


The following statement is a convenient method of determining if all values of 
one object are contained in another object: 


^/DATA1 € DATA2 


A 1 is returned if the left argument is a subset of the right argument, otherwise a 
O is returned. 


A/1 9 8 € 110 
1 


Where Having discovered that something exists, we might want to know where it is 
located in our data. We can use the function “where” (1 used dyadically) to do 
this. For example, 


2 6 5 915 
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Table Lookup 


265 9144 
5 


In the first example, 5 is located in the third position of the data (the left 
argument). In the second example, 44 is located nowhere in the data, so the 
answer is the index of the last element plus 1. 


Finding the location of data in a matrix is a common problem, and this task is 
often called “table lookup." Let's say we have a table of names: 


NAMES-3 Ap'BILLJOHNANNA' 
NAMES 


We have a new name that we want to add to the list, but only if it is not already 
in the table. 


NEWNAME-'JUNE' 
We use the APL table lookup formula: 


NAMES^.-NEWNAME 
000 


The result, O O 0, shows that the MEWN AME is not in any of the rows of the 
table. Therefore we can append JUNE to the matrix of names: 


NAMES-NAMES, L1] NEVNAME 
On the other hand, 


NAMESA.='JOHN' 
010 0 


shows that JOHN is in the second row. 
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CONVERTING 
CHARACTERS 
TO NUMBERS 


An important thing to notice about this formula is that the lengths must be 
correct—the vector must have the same number of elements as the matrix has 
columns. Otherwise, you get an error: 


NAMES^.-'BOB' 
LENGTH ERROR 
NAMESA.='BOB' 


A 
NAMESA.='BOB ! 
00 0 0 


A convenient method of checking if the NEWN AME has the correct length and to 
pad with spaces if it's too short, is: 


NEWNAME-' BOB' 


pNEWNAME 
3 
; (C11 pNAMES ) tNEWNAME 
OB 
, 0 (~1toNAMES) tNEWNAME 
NAMESA.=(~1t NAMES) tNEWNAME 
0000 


As a final point, we should note that the table lookup formula is one example of 
using the APL "inner product" operator. Inner product allows you to combine 
two APL functions (in this case, ^ and =) in very powerful ways. We will see 
another example of inner product in the mathematics section of this chapter, under 
the heading of “Matrix Multiplication." 


We've learned how to convert numbers to characters using the format function $ 
(see Chapter 3). But what about going in the other direction, from characters to 
numbers? 


APL provides a function called “execute,” which uses the ¢ symbol to do this. 


& !59 72 63' 


99 72 63 
S + e !59 72 63! 
64 77 68 





162 


Exploring APL 


E € M M ——— 


Actually, execute is a more general function than we've indicated: it executes any 
character string that looks like a valid APL expression. 


€ 'MAT<2 3016' 
MAT 
123 
4 5 6 
This generality gets us in trouble when the character string contains something 
other than numbers and valid variable or function names. 


e '35 92 HI THERE' 
SYNTAX ERROR 
e 35 92 HI THERE 
^ 


The APL*PLUS System provides a system function, 0 F I (format inverse), 
which is better to use for our specific need. OF T converts valid numbers, and 
changes invalid 1s to 0. 

OFI '22 98.3 HI THERE' Var 
22 98.3 0 0 of af o 


The APL*PLUS System also provides a system funtion OVI (verify input) to 
tell you what the character string contains. It returns 1s for valid numbers and Os 
for anything else. 


OVI '12.1 HI 52 &A! 
1010 


These two functions (OVI and OFT) used together allow you to collect numeric 
input using M rather than 0. You can then use OVT to verify that the user had 
entered valid numbers, and if so, use OF I to convert them to numbers for further 
processing. 


For example, to ignore the character data and to extract just the valid numeric data: 


DATA-'12.1 HI 52 &4' 


(OVI DATA)/OFI DATA 
12.1 52 
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SCALAR, 
VECTOR, OR 
MATRIX? 


Rank 


This expression converts the data to numerics using OF T, and then selects only 
the valid numbers using DVI as a mark to compress Os. 


Sometimes you need to know whether the data you're dealing with is a scalar, 
vector, or a matrix. For example, some functions (such as count") don't work 
with anything but scalars, and other functions (such as “indexing”) work with 
everything except scalars. 


APL uses the concept of "rank" to deal with this need. Rank is defined as the 
number of dimensions your data has. The formula for finding rank is o o—the 
shape of the shape. 


The shape of a vector is a single number showing how many elements the vector 
contains. 


p 5 8 10 
3 


So the rank of a vector is 1: 


ep 5 8 10 


pp 12 12.3 205 49 37 
1 


The shape of a matrix has two numbers in it, one for the rows and one for the 
columns: 


MAT-2 403 2 1 0 
MAT 
3210 
3210 


pMAT 
24 


So the rank of a matrix is 2: 


Pp PMAT 
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Multi- 
dimensional 
Objects 


0910 20p'HELLO THERE! 
2 


The rank of a scalar? Remember, a scalar has no shape (or, to be precise, a 
scalar's shape is the empty vector 1 0): 


05 


(six-space indent) 
So a scalar’s rank is 0: 


pp 5 
0 


Understanding rank becomes simple when you think of it in terms of basic 
geometry. A scalar corresponds to a point; a vector corresponds to a line; and a 
matrix corresponds to a plane. Like a point, a scalar has a position but no length 
or depth; a line has length but no depth; a plane has both length and depth. Thus, 
a scalar has zero dimensions, a vector has one dimension, and a matrix has two 
dimensions. 


Since APL allows data with a rank of 2, you might imagine that APL also allows 
data with rank 3, 4, or even higher. We call data with more than two dimensions 
"multidimensional objects.” 


APL aiso allows data with a shape of 0, the empty vector ( 1 0), which has a rank 
of 1. 


ppro 
1 


One of the beauties of APL is that it allows you to deal with multidimensional 


objects as easily as scalars. You can build multidimensional objects with the 
reshape function, much as you build matrices: 
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THREED-2 4 4p1 2 3 4 
THREED 


m e e p> 
NNN NN NO DO DO PO 
Co Co Co CO Co C5 Co Co 
SA A Pm Dw we 


I b> p> po 


Multidimensional objects are represented in APL by sets of tables. In the 
example above, we asked for 2 planes, 4 rows, and 4 columns. Above three 
dimensions, the geometry analogy breaks down, since it’s hard to imagine objects 
with five or six dimensions. But rank will always tell you the number of 
dimensions: 


ppTHREED 


003 4 5 2 400 1 2 3 


MANIPULATING This section covers a number of functions you can use to manipulate data: 
DATA converting it to a vector, flipping it around, reversing its order, and so on. 


Ravel Sometimes you need to convert data to a vector, because it can be simpler to work 
with a vector than with a matrix or a scalar. The function “ravel,” which uses the 
comma ( , ) symbol monadically, does this. 


MAT-2 S3p16*16 
MAT 

17 18 19 

20 21 22 


,MAT 
17 18 19 20 21 22 


You can see where ravel gets its name—it “ravels out" the matrix. Ravel also 
turns a scalar into a one-element vector: 
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05 
v 
p,5 


As the example shows, a scalar has no shape, but a raveled scalar has a shape of 1. 


Ravel is useful when you want to ensure that the data you're using is a vector and 
not a scalar or matrix. If you're going to index into the data, for example, you 
must convert scalars to vectors, because indexing isn't defined for scalars. Also, 
OSS (string search), a very powerful system function described in the final 
section of this chapter, is defined for use only on vectors. 


The "rotate" function does exactly what you'd expect it to—it rotates the data. 
Rotate uses the ® symbol. 


When used monadically, rotate reverses the data completely: 


$14 

4321 
MAT-3 4 p'ABCDEFGHIJKL' 
MAT 

ABCD 

EFGH 

IJKL 


With a matrix, 6 flips the columns within a row: 


oMAT 
DCBA 
HGFE 
LKJI 


Rotate can also be used dyadically. For example to rotate a vector by 2: 


264 5 6 7 8 
67 8 4 5 
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Or by 1: 


164 5 6 7 8 
9678 4 


You can also rotate in the opposite direction: 


1064 5 6€ 7 8 
84567 


When used with a matrix, it rotates the individual columns or rows: 


MAT-3 Ap'ABCDEFGHIJKL' 
MAT 

ABCD 

EFGH 

IJKL 
1 2 1e6MAT 

BCDA 

GHEF 

JKLI 


We rotated the first row by 1, the second by 2, and the third by 1. To rotate 
columns instead of rows: 


2 3 2 “1011 MAT 
IBKL 
AFCD 
EJGH 


We rotated the second column by 3, which brought it back around to its starting 
position. 


Overturn You can use “overturn” as a synonym for ¢ [ 1] (rotate across the first 
dimension). It uses the © symbol. 


When used monadically, overturn reverses the rows completely: 


eMAT 





Transpose 
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Overturn can also be used dyadically: 


2 3 2 "1eMAT 
IBKL 
AFCD 
EJGH 


We rotated the first column by 2, the second column by 3, the third column by 2, 
and the fourth column by ~1. 


A close relative of rotate and overturn is “transpose,” which uses the & symbol. 
Transpose allows you to shift the dimensions of your data, turning the rows 
dimension into the columns dimension, for example: 


; pMAT 
QMAT 

AEI 

BFJ 

CGK 

DHL 
p &MAT 

4 3 

When used dyadically: 
2 18MAT 

AEI 

BFJ 

CGK 

DHL 


This expression tells APL to make the first dimension the second, and vice versa. 
So what were the rows (such as AB C D) are now columns. The transpose 
function might be useful if you want to sort the columns of a matrix rather than 
the rows [remember that the APL sorting functions (4 and Y) sort the rows of a 
matrix]. 
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GRABBING 
PIECES 
OF DATA 


Drop 


We' ve already learned that “take” can be used to grab pieces of data (see 
Chapter 9). The take function grabs as many elements as you specify: 


216 10 12 14 


6 10 
 21'ABCDEF' 
EE 
2 2tMAT 
AB 
EF 


The "drop" function, which uses the 4 symbol, does the opposite of take. It 
drops off as much data as you specify: 


2115 


-2415 
12 3 


Drop can be tricky with matrices, since it drops both rows and columns: 


MAT 
ABCD 
EFGH 
IJKL 

2 14MAT 
JKL 


We dropped 2 rows, leaving only the last row, and we also dropped the first 
column. To eliminate only the first row, but leave all columns, use a O drop: 


1 OVMAT 
EFGH 
IJKL 


It can be very helpful to use take and drop together to move through your data, 
processing individual chunks of it. 
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Exponentiation 


Logarithms 


Outer 
Product 
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DATA-'PIECEAPIECE2PIECES' 


First you use take to grab the first chunk: 


6TDATA 
PIECE1 


Once you’ve finished with the first chunk, you drop it off, then grab the next 
chunk: 


6t6} DATA 
PIECE2 


This section deals with various math functions available in APL. We'll introduce 
everything from exponentiation and logarithms to matrix multiplication and the 
solution of simultaneous equations. 


The "power" function gives you the ability to work with exponents. It uses the * 
symbol. 


2*0 12 3 4 
12 4 8 16 


The “log” function uses the ® symbol. It returns the natural logarithm. 


el1 10 
0 2.302585093 


Used dyadically, you can specify the base for the logarithm. 


2 498 0.25 
3 "1 


The result tells us that 2 to the third power is 8, and 4 to the ^1 power is 0.25. 
Outer product uses an APL operator, ° (pronounced “jot dot" or “null dot"), to 


combine each element of the left argument with each element of the right 
argument. For instance, an easy way to produce a multiplication table is: 
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12 3°.x1 2 3 4 


WN e 
DAN 
W O0» Co 
NO cO 


1 


The first row of the result shows 1 times 1 2 34, the second row shows 2 times 1 
2 3 4, and so on. 


Any scalar dyadic function can be used with outer product: 


12 3°.#41 2 3 


1 
101 
110 
12 3°.21 2 3 

100 

110 

1 1 1 
Inner Inner product is an even more powerful operation. Inner product takes two 
Product scalar dyadic functions as its arguments, one on each side of the dot (.). It uses 


the function on the right to combine each element of the left argument with each 
element of the right argument (similar to outer product). But then it uses the 
function on the left to do a “reduction” (such as a “plus reduction" or a "max 
reduction”—see Chapter 3) on the result. 


We've already looked at one example of inner product, ^.- (see the Locating 
Data section in this chapter). 


Matrix Another example is to use * and x to perform matrix multiplication: 
Multiplication 
M1-2 3916 
M1 
123 
4 56 
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Notice that the left argument must have the same number of rows as the right 
argument has columns. The result then has the same number of rows as 1, but the 
same number of columns as 2. 


Any of the scalar dyadic functions can be used as either the left or right functions 
in inner product, making this a very powerful operation. 


Matrix APL also provides a function to solve matrix division problems. Given a matrix 

Division M and a vector R (with the same number of elements as M has rows), the 
expression REM will solve the equation MX-R, where X is a vector of 
unknowns. The "matrix divide" function uses the B symbol. 


E 3011101 100 1 


111 
0 11 
001 
2 3 SM 
Ti 72 9 


If the equation has more than one solution, or if matrix M is singular, B returns a 
DOMAIN ERROR. 
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Least-Squares If M has more rows than columns, REM will provide a least-squares 
Approximation approximation. 


M2-3 2010 0100 
M2 


OOF 
Or © 


1 1 1HM2 
1 1 


Dyadic B can be used to solve linear equations, to fit a straight line, and to fit a 
polynomial curve. For example, consider the following set of 3 linear equations: 


x+y+2z=9 
2x + 4y-3z=1 
3x + 6y-5z=0 


This would be represented in APL by two matrices 


A-3 30112 24 ^3 3 6 ^5 
A 


112 

24 73 

3 6 -5 
B-3 1p9 1 0 
B 

9 

1 

0 


where A represents the coefficients of the linear equations and B represents the 
resultants. 
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E E i ee 
The solutions for x, y, and z in the linear equations can be determined by 
BHA 
1 
2 
3 
where x= 1, y=2, and z =3. 


Matrix Used monadically, HM returns the inverse of matrix M, provided that M is square 
Inversion and nonsingular. If M has more rows than columns, a least-squares approximation 
to the right inverse of M is returned. 


H2 201 10 1 


1 "1 
O0 1 
Combinations The “combinations” function is used to find the number of distinct groups of a 


particular size that can be selected from a group of equal or larger size. Such 
problems are usually described as “five choose two,” “four choose three,” and so 
on. Combinations uses the “shriek” symbol, ! . 


12 515 4 5 vA 
5 6 1 
012 3!3 
l9 3: 2 
TRIGONO- APL provides a full set of functions to find values for trigonometric analysis. All 
METRIC are based around the “circular” function, which uses the © symbol. Used 
FUNCTIONS monadically, © is defined as “pi times x.” 


o1 
3.141592654 


The circular function is used-dyadically, with a set of numeric codes as its left 
X | argument, ranging from 1 to 7 and from "Tto ^7. For example, 19 X returns 


A the sine of X, and "1 oX returns the cosinę; 30X returns the tangent; 730X 
". a the arctangent; and soon, X is given in Tác dians, which can be found using the 
BASIC neo formula: o. DEGREES + 180. 
> 
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See your system's reference card or reference manual for a complete list of the 
trigonometric functions. 


SOME APL Even a language like APL, with its rich set of built-in functions, doesn't include a 

IDIOMS function for every need. However, you can put together a few APL functions and 
form short expressions that are so generally useful that they almost serve as 
primitive functions themselves. We call these short expressions “APL idioms.” 


Once you have used an idiom for a while, you learn to recognize it immediately, 
without having to decipher its individual parts. If you know a lot of common 
idioms, it’s much easier to read someone else's APL programs, since you'll 
immediately recognize the purpose of many lines. 


You’ ve already learned a few idioms in the earlier chapters of this book. For 
example, 


(OSENTENCE£' ')/SENTENCE 
is the idiom for removing all blanks in a character vector. The expression for rank, 
poDATA 


is also an idiom. In fact, most of the expressions introduced in this chapter could 
be considered idioms. This section will introduce you to a few more useful 


idioms. 
Numeric or An idiom for finding out whether your data is numeric or not is 
Character? GC & lue 
021t0pDATA Qucm ^ 
-- SO ee 
For example, 
: 0-110088 99 32 4 ev 
N 
OA O=1t0p'HELLO THERE' 


D auant nt 
| yar 176 
Wl n. £^ 
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OP Aant Hius cf Cmy ty 


meee 


The corresponding test for character data is 


' T=S=1tOpDATA 
Branch You’ve already learned the idiom for branching to another line in the program: 
to Next 
uet: >(CONDITION)oLINE1 
For example, 
>(NUM=0)p0K j 
An idiom for “go to the next line if the condition is met" is | 
—-CCONDITION)DQoULC-*1 


The system function [1L C is the line counter, and it gives you the line number of 
the user-defined function currently being executed. So if you go to [1L C * 1, 
you're going to the next line. An example: 


[63 >(NUM>0)p0OLC+1 9 'NONE FOUND.' 9 EXIT "d 
[73 (NUM), ' OCCURRENCES FOUND.' 


[20] EXIT: 
[21] v 


If NUM isn'tlarger than O, nothing was found, so a message is printed and we exit 


the program. Otherwise, we go to line 7 (OLC + 1) and report on the number of 
occurrences found. 


Cond | ] T 
Qo Node " ( 2 -3)/ 3 
(22/3 S = | 


» blank (ene ts) 





177 





APL Is Easy! 


—————Ó——— O 


Finding 
Indexes 


Locating 
Data Based 
on a Test 


p 


Replacing 
A with B in 
a Vector 


A common idiom for getting all the indexes of a vector is 


lLoVECT 
To illustrate: 
V-8 17 ^72 
pV 
3 
LEV 
1 2 
V[IipV] 
8 2 


This idiom (1 oVECT ) is often used to form longer idioms. For example, the 
last example above shows that we get all of V if we index it with 1 oV. But we 
can index V based on a test: 


(V»0)2/1pV 


Vt(r»0»ffiov]] 
8 17 


The first statement says “Give me the indexes of all elements in V that are greater 
than zero." The second statement says, "Index V with those indexes, giving me 
all the numbers in V greater than zero." 


A related idiom allows you to replace all occurrences of 9 in vector V with 777. 
For example, 


V-8 9 1227 9 
V PSP SUCH 
8 777 12 27 777 
V<-'MISSISSIPPI' 
VUICV='S')/1pVI<'F! 
V 
MIFFIFFIPPI 
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Result 


Finding a 
Substring 
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The idiom for checking for an empty vector is 
O=pA 


This idiom is useful when accepting l input, to check whether the user simply 
pressed ENTER instead of typing something. 


A more general idiom for checking for an empty result is 
OE oDATA 
This idiom will work with data of any rank. 


The final idiom to be introduced here is not an idiom in the APL* PLUS System, 
but rather a system function OSS (for string search). It appears here because it is 
very useful, and also because it replaces long and complex idioms in other 
versions of APL. 


To find substring STRING in the sentence TEXT, use the expression: 
TEXT OSS 'STRING' 


A string of Os and 1s is the result, with a 1 marking the beginning of the 
substring. 


TEXT-'I YAM WHAT I YAM.' 
TEXT OSS 'YAM' 
00100000000001000 


If we're interested simply in whether the string is in the text or not: 


1ETEXT OSS 'YAM' 
1 


Where does the string start in the text? 


: (TEXT OSS 'YAM')/1o9TEXT 
1 
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This section introduced only a few of the common APL idioms. More idioms can 
be found in any of the standard APL texts, such as APL:An Interactive Approach. 
Perhaps the most complete collection of APL idioms is the FINNAPL Idiom 
Library, available from the Finnish APL Association. 
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Chapter 2 A. 1.4 5 6 


3. 2 
4.6 12 


5.6 12 
This is the same answer as for Exercise 4, since 3 is multiplied by both 2 and 4 in 
both cases. 


6. SYNTAX ERROR 
This is because the plus function expects data on both sides. That is, plus is a 
dyadic function. 


7. SYNTAX ERROR 

Since the high minus is part of the number 2 (2 = negative two), this 
expression has no meaning. Use the “middle minus” (-) to subtract; for example, 
2-2. 


8.5 2 3 


9. DOMAIN ERROR 
Division by zero is not defined in arithmetic. Thus, zero is outside of the domain 
of the division function. 


10. 40 
Remember to evaluate right-to-left. That is, 2* 6-28, 5x8=40. 


11. LENGTH ERROR 
The two vectors are not of equal length, and thus cannot be added. 
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12. 16 
Parentheses are used to change the order of execution. 


13. SYNTAX ERROR 
In regular math, parentheses can be used to show multiplication, but in APL, the 
times sign must be used. 


14. 4 2 


5.0 2 4 
6 8 


6. RANK ERROR 

Vectors cannot be added to matrices. 
7.4 5 6 
7 8 9 
8.8 6 4 


9. LENGTH ERROR 
The vector on the left contains only two elements, but B contains three. 


10.2 8 14 


182 


Solutions to Exercises 





D. 
2. 4 


3.3 
Since APL evaluates right-to-left, it links the two vectors together and then takes 
the shape of the new, longer vector. 


4.0 0 1 5 
A scalar is catenated to the end of a vector. 


5. 4 
The new vector has four elements. 


612 49 
Since the new vector has four elements and V2 also has four elements, the two 
vectors can be added. 


71.4 4 4 
Dyadic rho is used to create a vector. Instead of rows and columns, we get one 
string, with as many elements as the number on the left specifies. 


8.2 12 
121 
212 

9. 0 
0 


Here, rho uses the contents of V3 (2 1) to reshape V into a matrix with two 
rows and one column. Since the 1 isn't required (V1 contains O 0 1), APL 
just leaves it out. 


10.5 00 1 
A 5 is catenated to the front of a vector. 
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Chapter 3 A. 


If you missed Questions 4, 6, 8, and 9, relax. These questions were meant to 
point out some additional properties of reshape and catenate rather than to test you 
on your previous knowledge. Try some experiments of your own with these 
functions and try to interpret the results—the worst that could happen is that 
you'll receive an error message. 


1..20 .30 .50x12 6 20r12 6 2x.20 .30 .50 
2. 600 700 1000 950x.05 .0525 .055 .06 
3. 100x142 167 161 128+175 


4. 2116* (7216-60002x.250r2116*.25x7216-6000 

The second expression works because the difference (7 2 16 - 6000) is taken 
first, the multiplication is done next (. 2 5x 1216), and then the addition 
(2116+304). Remember, think right-to-left! 


5. SALES<2 3012 9 3 11 12 6 
PRICES-2 303.25 1.79 2.55 3.45 1.85 2.75 


SALESxPRICES 
39 16.11 7.65 
3/495 22.2 16.5 


6. OLDGRADES-GRADES 
GRADES-93 87 80 90 78 85 


Ts INVCOST-QUANTxCOST 
INVCOST 


472.5 773.67 704.48 155.25 


1. ARROWS<'<-t! 
ARROWS 
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d: CHARS < 
PN "<<=2>4#VA>*e OL T~pew?allL_vae''O¢ 

YOINULTI;:\! 
Of course, the order will vary depending on how you decide to type in the 
symbols. The only thing you might have trouble with is the single quote. 
Remember you must have an even number of quotes in a line, so enter an extra 
quote if you run into a problem. Then reassign the variable, and remember to 
double the quote. 


3. NUMBERS-3 5p'ONE TWO THREE' 
NUMBERS 
ONE 
TWO 
THREE 
4. ALPH<5 1p'ABCDE' 


5. The shape of our CV is 4, since we included four spaces. If you included a 
different number of spaces, the shape will also be different. 


6. The shape is 8. Since APL translates the double quotes back to a single 
quote, the double quotes count as one element only. 


7. ALS 2 3] 
TAN 
8. B,C 
BLUEBELL 
D,C 
JINGLEBELL 
Cae 
BELLRINGER 


9. a. m ALPH[20] 
b. SYMB[4] 


* 


C. ALPH,SYMB 
ABCDEFGHIJKLMNOPQRSTUVWXYZVA| *e 
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d. oALPH,SYMB 
31 
e. ALPH[1121 or 
ALPHUI1 2 3 4 5 67 89 10 11 12] oreven 
120ALPH 
f. ALPH[?26 26 26] or 


ALPH ?30[26] 
Try the expression a few times to see the result. 


10. 10p!x' 

L.db db db db db db db db dbi 
You have asked APL to "reshape" the single star into a character vector with 10 
Stars. 


11. M-'THE NUMBER IS ' 
M,*920 
THE NUMBER IS 20 


12. P1-'YOU HAVE SPENT ' 
P2-' DOLLARS.' 
P1,(410),P2 

YOU HAVE SPENT 10 DOLLARS. 


You need parentheses around the numeric part (* 10) to keep catenate from 
joining the character data in P2 to the number 1 0 before it's been converted to 
character data. If you forgot the parentheses, you probably got a DOMAIN 
ERROR, since catenate is not defined for use with mixed character and numeric 
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64 17 8 
For this function, it makes no difference which side of the function symbol the 


data appears on. 


7. 3 


8. 4 


9 


10. 4 


11. 1 


12. 4 
9 


1 


3 
7 


Co 


3 
4 


2 
7 


3 
1 


6 


Solutions to Exercises 


You can use maximum to compare C to itself, but the result is merely C again. 


3. 9 17 


4.9 15 


Im 
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6. 1 
7.4 9 
8.1 1 
9. 13 9 4 
10. 7 11 6 
11. 26 
12. 24 
Beg 
14. 1 
D. I TRANSACT [3] 
17 
2. +/TRANSACT 
154.22 
3i *NTRANSACT 
153.17 133.17 150.17 114.42 141.97 154.22 
4. TRANSACTI11-TRANSACT I6] 
140.92 


If you got this one on your own, congratulations! It's a bit different than 
anything we did in the chapter. 


5. (*/TRANSACT0x.050r .05x*«/TRANSACT 
Fatti 7.711 

The first expression is closer to regular arithmetic, but the second one saves 

typing two parentheses by "thinking APL"—that is, right-to-left execution. 
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E. 1. pDEPOSITS 


2. (+/DEPOSITS )-+/WITHDRAWALS 

697.72 
The parentheses on the left are required to make sure we get what we want—total 
withdrawals subtracted from total deposits. Without parentheses on the left, the 
total withdrawals would be subtracted from each deposit, then all these negative 
numbers would be summed up. Try it! 


3; DEPOSITS-DEPOSITS,450 
DEPOSITS 
120 25 115 375 800.12 22 75 82.75 450 
4. [/DEPOSITS 
800.12 
L/DEPOSITS 
22 
9. [ /WITHDRAWALS 
2372.12 
L/WITHDRAWALS 
15 
6. (fT /DEPOSITS)-. /WITHDRAWALS 
428 
Don’t forget the parentheses! 
7. DEPOSITS[1 3 5] 
120 115 800.12 
8. WITHDRAWALS[15] or 
WITHDRAWALS[1 2 3 4 5] oreven 
SOWITHDRAWALS 
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F 1. Z 
HOW 
CAN 
THAT 
BE? 
2. ZL[1;1 2 3] 
HOW 
3. ZL3;,2 3 4] 
HAT 
4. Z[4;53] 
? 
5. Z[4;3 3 3] or 
302[4;3] 
6. Z[?4;1] 


Enter the expression a few times to see what happens. 


7; Z[2;?4] 
Remember that you have a blank in this row—so the result may be “invisible” if 
the random number the system chooses is 4. 


Chapter 4 A. 1. +/'E'='TENNESSEE' 


25 +/TRANSACT <0 
3 
TRANSACT «0 gives a result of 1s and Os; the + / adds up the 1s, which 
correspond to negative numbers (that is, withdrawals). 
3. +/TRANSACT20 
4 


4. +/' '=§ 
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5. +/SALES<375 
5 
1. A/ACCOUNTS20 
0 
The answer is no—some accounts must have negative balances. 
2. +/ACCOUNTS<0 
3 
3. +/ACCOUNTS20 
7 
4. V/ACCOUNTS>200 
1 
The answer is yes—there must at least one account greater than $200. 
+/ACCOUNTS>200 
1 
There is only one. 
5. V/ (CACCOUNTS>120 )AACCOUNTS<175 
1 


Yes, there are some accounts between $120 and $175. 
+/ (ACCOUNTS>120)AACCOUNTS<175 
2 
In fact, there are two accounts between $120 and $175. 


6. +/ (ACCOUNTS<0)/ACCOUNTS 

~97 
(ACCOUNTS «0) / uses compression to pick out the negative balances, then 
the * / adds them. 


if +/ (ACCOUNTS20)/ACCOUNTS 
633 
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C. 1. (PRICES>15)/PRICES 
30.29 18.95 19.95 
Don’t forget the parentheses around the expression on the left! Without the 
parentheses, you'll get either a DOMAIN ERROR ora LENGTH ERROR. 


2. (PRICESs3.07)/PRICES 
1:79 3.07 2.15 


3. (PRICES=17.75)/PRICES 
This expression gives no result, because none of the prices equals $17.75. 


4. (CPRICES>10)APRICES<20)/PRICES 

10.77 18.95 19.95 
You may have had trouble with all of the parentheses in this exercise. Remember 
that you must always have an even number of parentheses (just like quotes). If 
you omitted any parentheses, you probably got an error message. 


D CCPRICES<2)VPRICES>30)/PRICES 
1.79 30.29 


3. MOE 

4. 456 

5. 6 

The rightmost part (O 1 0/[113 A) chooses the middle row of A, then the 0 
O 1 part chooses the final element of that row. 


6. LENGTH ERROR,since A has only three elements. 
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Chapter 5 


A. 


l. (CUSTNO=3)/ 01] CORDERS 

T2 35 99 
The [11 partis necessary because we're looking for a row of orders. Remember, 
each row corresponds to one customer. 


2. (CUSTNO-4)2/[11CADDRESS 
27 MEMORIAL DR. 
Again, we need a row of the address matrix. 


3. (MONTHS=11)/CORDERS 
412 
8 4 
35 
78 
This time we need a column, because we’re searching by month rather than by 
customer. 


4. (CUSTNO-15/[11 (MONTHS=12)/CORDERS 
811 

or 

(MONTHS=12)/ (CUSTNO=1)/0C11]CORDERS 
Either expression will work, but you need to remember to use the [1] when 
compressing with CUSTNO. That’s because CUSTNO’s length matches the 
number of rows in CORDERS. If you try (CUSTNO=1 )/ CORDER, you 
geta LENGTH ERROR, because you're trying to compress three columns using 
four Os and 1s. | 


Note: You will probably have different names for the function arguments than 
the ones shown here. 


We show all of the steps in one continuous display. 


v NUMBERS 
[6] [2] 
[21 TOO 
[3] [4] 
[4] FORE 
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[5] C300) 
[3] THREE 
[3] TREE 
[4] [1.5] 
[1.5] IWO 
[1.6] [^5] 
[5] CO) 
v NUMBERS 
[1] ONE 
[1.5] TWO 
[2] TOO 
[3] TREE 
[4] FORE 
V 
[5] [L0] 
[0] COUNT 
[5] CO) 
v COUNT 
[1] ONE 
[1.5] TWO 
[2] TOO 
[3] IREE 
[4] FORE 
V 
[5] V 
Don't forget to get out of function definition mode by typing a v. 
B. 1. R-A ADD B 
2. R<A+B 
3. VR-A ADD B 
[1] R<A+B 
[2] V 
A-4 ADD 2 
A 
6 


4. RUNTOT DATA 
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5; +\ DATA 

6. VRUNTOT DATA 
[1] +\DATA 
C2] V 


RUNTOT 10 20 30 40 
10 30 60 100 


C. 1. vHI 
[1] 'HELLO. MY NAME''S APL.' 
[2] 'WHAT''S YOURS?' 
[3] V 
Don't forget to double the quotes. 
2. VHALF NUM 
[1] NUMx.5 
[2] V 
HALF 3.14159 
1.570795 
3. VHALF 
C2] [0] 
[0] R-HALF NUM 
[2] [1] 
[1] Re-NUMx.5 
[2] [D] 


VR-HALF NUM 
[1] R-NUMx.5 
V 
[2] V 
You must remember to assign a result both in the header and in the body of the 
function. If you don't, you'll get a VALUE ERROR in Exercise 4. 


4. 10+HALF 3.14159 
11.5070795 
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5. VROWTOT MAT 
[1] +/MAT 
[2] V 
ROWTOT MAT 
3 7 11 
6. VCOLTOT MAT 
[1] */L[11]MAT 
[2] V 
COLTOT MAT 
9 12 
Js ROWTOT MAT2 
50 66 82 


COLTOT MAT2 
45 48 51 54 


8. VRPT DATA 
[1] DATA 
[2] (Sa aes = ' 
[3] COLTOT DATA 
[4] y 
RPT DATA 


11 12 13 14 
15 16 17 18 
10 20 21 22 


45 48 51 54 


D. 1. VREPEAT X 
[1] A NP ore, "exc a dE. E X 
C2] V 
All that RE PEAT does is take the character data you enter (such as ' ANN !'), 
catenate it to a single blank (! '), take it again, catenate it to another blank, and 
SO On. 
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Solutions to Exercises 





REPEAT 'ANN' 
ANN ANN ANN ANN ANN 


VSQUARE X 
[1] 'THE NUMBER SQUARED IS !',s*XxX 
[2] V 

SQUARE 247 
THE NUMBER SQUARED IS 61009 


; VA CHOOSE B 
[1] ALB] 
[2] V 
NOS CHOOSE 4 
21 
f vX OF Y 
[1] XoY 
[2] y 
4 OF 'Q! 
ajajaja 
vHIST D 


[1] DC[1] OF 'U' 
[2] DL2] OF '0' 
[3] D(3] OF 'Q! 
[4] DL[4] OF 'Q! 
[5] V 
HIST 416 7 

D anu 

D 

000000 
Dnagnganum 


: VR-A GT B 
[1] R<«(A>B)/A 
[21 V 
SALES GI 200 
350 201 279 
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Chapter 6 A. 


2. VR-A LT B 
[1] R-C(CA«B)/A 
[2] V 

SALES LT 200 
125 115 
3 VR-A EQ B 


[1] R<«(A=B)/B 
C2] V 

SALES EQ 350 
350 


VDEPOSIT AMOUNT 
[1] DEPOS-DEPOS,AMOUNT 
V 


[2] 
VCHECK AMOUNT 
[1] WITHD-WITHD,AMOUNT 


[2] V 

VNEWBAL 
[1] (+/DEPOS)-+/WITHD 
C2] V 


You may have forgotten the parentheses around * / DEPO S in NEWBAL. The 
function works this way (that is, you don't get any error messages), but you 

won't get the result you wanted. Instead, the total withdrawals are subtracted from 
every deposit (DEPOS -+ /VITHD); then those results are summed (+ /). 


l. 'I8' OFMT D 

10251 17513 18016 

11206 16867 19197 
Always remember to put quotes around the format phrases; otherwise you'll get a 
value error. 


2. 'F10.2' OFMT D 
10250.50 17512.70 18016.20 
11205.81 16867.12 19197.20 
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3. 'F8.2' OFMT D 
10250.5017512.7018016.20 
11205.8116867.1219197.20 
There was enough room to format the numbers (we didn't get any stars), but we 
didn't allow for any space between the numbers. 


4. 'F18.2' OFMT D 
10250.50 17512.70 18016.20 
11205.81 16867.12 19197.20 
3. 'CF18.2' OFMT D 
10,250.50 17,512.70 18,016.20 
11,205.81 16,867.12 19,197.20 
6. 'CP<$>F1i8.2' OFMT D 
$10,250.50 $17,512.70 $18,016.20 
$11,205.81 $16,867.12 $19,197.20 
The order of the phrases C and P makes no difference. 
1. 'F12.2,F10.1' DFMT E 
18147.70 20.4 
19717.11 717.3 


Always remember to separate format phrases with a comma, or you'll get a 
FORMAT ERROR. 


2. 'CP<$>F12.2,F10.1' OFMT E 
$18,147.70 20.4 
$19,717.11 “Liss 
3. 'CP<$>F12.2,N<°/°>Q<e/e>Fi0.1' OFMT E 


$18,147.70 20.4°/° 

$19,717.11 ~17.3°/° 
If you only used N « » / >, then you only got a percentage sign next to the 
negative number. If you only used Q< ° / ° >, you only got one next to the 
positive number. Again, the order of the format phrases is not important. 
4. 'CP«X$»5F12.2,M«-5N«»/»»5Q«»/»»F10.1' OFMT E 

$18,147.70 20.4»2/* 

$19,717.11 -17.3°/>° 
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5. 'CP<$>F12.2,M<->N<°/2>P<+>Q<°/o>F10.1' OFMT E 
$18,147.70 +20.4°/° 
$19,717.11  Á-17.3»/* 


6. 'BA1,CP<$>F12.2,M<->N<°/o>P<+>Q<o/o>F10.1' OFMT 
(N;:E) 

REVENUES $18,147.70 +20.4°/»2 

EXPENSES $19,717.11 -17.3°/» 


If you forgot the repetition factor for the names (84 1), you got stars in your 


result. 
C. 1. 'F12.2' OFMT S | 
6543.10 5342.55 
6231.89 T53T.21 
2. 'F12.2' OFMT (S;T) 
6543.10 5342.55 11885.65 
6231.89 7531.21 13763.10 
3. 'P<$>F12.2' OFMT (S;T) 
$6543.10 $5342.55 $11885.65 
$6231.89 $7531.21 $13763.10 
4. 'CP<$>F12.2' OFMT (S;T) 


$6,543.10 $5,342.55 $11,885.65 
$6,231.89 $7,531.21 $13,763.10 


5. '9A1,3CP<$>F12.2' OFMT (N1;S;T) 
SALESREP1 $6,543.10 $5,342.55 $11,885.65 
SALESREP2 $6,231.89 $7,531.21 $13,763.10 

If you forgot the repetition factor for the numbers (a 3 before C P) you got stars 

for the second two numbers. This is because D FMT tried to format the numbers 

with A, which isn’t allowed. If you omitted the repetition factor for the names 

(9A1), your names turned out very strangely—with long strings of stars. 
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D. l. VREPT DATA 
[1] TOT-*/DATA 
[2] '9A1,3CP<$>F12.2' OFMT (N1;DATA;TOT) 
[3] V 
REPT S 


SALESREP1 $6,543.10 $5,342.55 $11,885.65 
SALESREP2 $6,231.89 $7,531.21 $13,763.10 


2. VRPT2 DATA 
[1] t SALES FIGURES' 
[2] : WEEK1 WEEK2 TOTALS' 
C3] TOT<+/DATA 
[4] '9A1,3CP<$>F12.2' OFMT (N1;DATA;TOT) 
[5] V 
RPT2 S 


SALES FIGURES 
WEEK1 WEEK2 TOTALS 
SALESREP1 $6,543.10 $5,342.55 $11,885.65 
SALESREP2 $6,231.89 $7,531.21 $13,763.10 


Chapter 8 A. 1. 'EXERCISE' OFCREATE 6 
(You may have used a different tie number. If so, your tie number will differ in 
the rest of the answers to Exercise A.) 


2, MSG-'FILE FOR EXERCISES IN CHAPTER 8.' 
MSG OFAPPEND 6 
Don’t forget the quotes around the message. 


3. DATA-3 30110 150 117 35 65 79 84 114 97 
DATA OFAPPEND 6 

4. DATA2-11.52 3.72 6.15 
DATA2 OFAPPEND 6 

5. ITEMS<OFREAD 6 2 

6. PRICES<OFREAD 6 3 
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7. PRICES(3] 
6.15 
8. ITEMSI3;] 
84 114 97 
9. */ITEMS 
377 179 295 
10. */ITEMSI3;] 
295 
11. ITEMSI3; JxPRICESI3] 


516.6 701.1 596.55 
This expression gives you the total sales for each week. To find the total sales for 
all three weeks (the grand total): 
*/ITEMSI3;1xPRICESI3] 


1814.25 
Or 
PRICESI3]x*/ITEMSI3;] 
1814.25 
B. l. OFUNTIE 6 (or whatever tie number you were using) 
2. VIIE 
[1] ' EXERCISE! OFTIE 277 
[2] V 
3. IIE 
OFNAMES 
EXERCISE 
OFNUMS 
277 


(If you have more than one file currently tied, the display may be different.) 
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4. VREAD 
[1] OFREAD 277 2 
[2] V 
READ 
110 150 117 
25 65 79 
84 114 97 
5 VTOTSALE 


[1] ITEMS-UFREAD 277 2 
[2] PRICES-UFREAD 277 3 
[3] PRICESx+/ITEMS 


[4] V 
IOTSALE 
4343.04 655.88 1814.25 
C. 1. VREAD DATA 
[1] OFREAD 277,DATA 
[2] V 
ITEMS<2 
PRICES<3 


READ PRICES 
11.52 3.72 6.15 
Don’t forget the comma between 277 and DATA in your function. 


2. vTOTAL DATA 
[1] MAT<OFREAD 277,DATA 
[2] *t/MAT 
[3] V 
TOTAL ITEMS 
377 179 295 
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3. VTOTSALE ITEM 
[1] IT-DUFREAD 277 2 
C2] PR-DFREAD 277 3 
[3] #$$ITCITEM;]xPRCITEM] 
[4] V 

NUTS-1 
BOLTS<2 
WRENCHES<3 
TOTSALE NUTS 
1267.2 1728 1347.84 
TOTSALE BOLTS 
130.2 241.8 293.88 


Notice that we avoided calling the data we read in on lines [1] and [2] of the 
function ITEMS or PRICES. Remember, we assigned the number 2 to 
ITEMS and 3 to PRICES in Exercise C.1. We might want to use those 
variables again, so we don’t want to confuse things by reassigning them now. To 
be really safe, you may want to assign the key variables inside the function. 


v TOTSALE ITEM 
[1] NUTS<1 
[2] BOLTS-2 
[3] WRENCHES<3 
[4] IT-DFREAD 277 2 
[5] PR-DFREAD 277 3 
[6] ITCITEM;1xPRCITEM) 
C7] V 


This will ensure that the computer will find what it needs when it looks for a 
value in NUTS or BOLTS. It takes up more computer time to run the function, 
however. 


D. l. ' SALES! OFCREATE 9 
(You can use any whole number that you're not already using.) 


2. SNOS UFAPPEND 9 


MON OFAPPEND 9 
SALES OFAPPEND 9 


eee 
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E ERR AURA SS ——————————————OÉ 


3. OFUNTIE 9 
4. | VGETDATA 
C1] 'SALES' OFTIE 1076 


[2] SNOS-UFREAD 1076 1 
[3] MON-OFREAD 1076 2 
[4] SALES<OREAD 1076 3 
[5] V 


5. (Enter function as shown.) 


6. VMONTH NUM 
[1] M-NUM 
[2] V 
7. VPRINT 
[1] (MON=M)/(SNOS=S)/C1I1]SALES 
[2] V 
Chapter 9 You may use different variable and argument names in the function headers than 


those shown here. Also, remember that there are many ways to work a problem 
in APL. The solutions shown here are the ones we feel are the simplest and most 
direct, but they are certainly not the only solutions. 


A. 1. v ASKDIE 
[1] L1: ?6 
[2] 'TRY AGAIN? (YES OR NO):'! 
[3] -C'Y'=1t0)pL1 


[4] V 

2. v ADDER;NOS 
[1] ' ENTER NUMBERS TO BE ADDED: 
[2] NOS<O 
[3] 'THE TOTAL IS ',(€t+/NOS),'.' 
[4] V 
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eee 


You may not have used a local variable, but it’s a £ood idea to start using this 


tool. 
3. V ASKREPEAT ;THING:X 
[1] "ENTER THING TO BE REPEATED:' 
[2] THING<O 
[3] ' REPEAT HOW MANY TIMES?! 
[4] X<«O 
[5] XoTHING 
[6] V 
4. v ASKHIST;NUMS 
[1] 'ENTER FOUR NUMBERS FOR BAR CHART:' 


[2] NUMS<0D 
[3] HIST NUMS 
[4] V 


B. v GETNAME 
[1] NAME-OFREAD 1068 2 
[2] "NAME OF ITEM: ' 
[3] NEWNAME-2010 
[4] NAME<NAME , (1]NEWNAME 
[5] NAME OFREPLACE 1068 2 
[6] V 


v GETDETAILS 
[1] DETAILS<OFREAD 1068 3 
[2] ' SERIAL NUMBER, DATE PURCHASED, PRICE:! 
[3] NEWD<35tO 
[4] DETAILS-DETAILS,I[1]NEWD 
[5] DETAILS UFREPLACE 1068 3 
[6] V 


V INVSTART 


[1] ' INVENTOR' OFTIE 1068 
[2] V 
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C. v BUDGET 
[1] "ENTER BUDGET ITEM ("END" TO STOP»:' 
[2] INAMES-ZOTD 
[3] INAMES-1 20pINAMES 
[4] LP: 'NEXT ITEM:' 
[5] NEVWLINE-201UD 
[6] —(^/' END'-31NEVLINE) oNUMS 
[7] NEVLINE-1 20pNEWLINE 
[8] INAMES-INAMES, C11 NEWLINE 


[9] -LP 

[10] NUMS:'ENTER BUDGET FIGURES FOR ',(¥1tpINAMES),' 
ITEMS:' 

[11] MN-l 


[121 TOT<+/N 

[13] PERCENT-100xN*TOT 

[14]. t 4 

[15] ‘BUDGET IS:' 

[16] ' ! 

[17] FSB-'20A1,P«$»5CF12.2,N«*/»5Q«*/*5F12.1' 
[18] FSB OFMT (INAMES;N;PERCENT) 

[19] 44 p '7! 

[20] T<20t'TOTAL' 

[21] T-1 20pT 

[22] FSB OFMT (T;+/N;100) 

[23] 'DON''T FORGET TO )SAVE IF THIS IS THE FINAL 
VERSION.' 

[24] v 


Notice that we intentionally didn't make the variables local ones because 
SHOWBUDGET needs the variables to run. 
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Appendix B 
Error Messages and What to Do about Them 
————  HC————Á———— 


In using this book, and typing in APL expressions, you may have gotten at least 
a few error messages along the way. It's easy to make errors—all you have to do 
is misspell a variable or function name or forget temporarily how a function is 
used. 


Luckily though, nothing is really hurt when an error message is displayed. With 
APL, you can always try again by reexecuting the line (with your corrections). 


This appendix can help you make those corrections so you can get started again. 
Of course, some errors (like SYNTAX ERR O R) have many possible causes, so 
it may be difficult to identify all of them. But we can at least help you determine 
the problem. The following table lists some of the common APL error mess ages; 
your APL system may have more than those listed here. Refer to your system 
documentation for a complete list. 


Error Probable Cause Solution 


DEFN ERROR This is a “definition error,” a 
category for errors that can occur 
when trying to create user-defined 
functions. Some common causes are: 


l. Trying to create a function 1. Check )FNS and )VARS 
with the same name as an existing to see whether the name already 
function. exists. Erase the old function 


or use another function name. 


2. Making an error using the del 2. Check your typing of the 
editor commands, such as editor commands. 

CO 

Ler] 
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Error Messages and What to Do about Them 





DOMAIN ERROR 


FILE ARGUMENT 
ERROR 





3. Trying to display a function 
that does not exist, such as: 
VNOGOODT] 


1. You tried to use a function 
with data it is not intended to 
work with—character data with 
a function expecting numeric 
data, for example. 


Examples 
2+'JOHN' 
(uses character data' JOHN', 
when numeric data was 
expected) 
4^0 
(uses numeric data, 4, where 
logical data is expected) 
'FILE! OFCREATE ^1 
(uses a negative number, 
~ 1, where a positive 
number was expected) 


2. The answer is not defined. 


Examples 
4*0 (division by zero) 
—1x . 5 (square rootof ^1) 


1. You have used too many letters 
in the file’s name. 


2. You have used illegal 
characters in the file name, or 
the first character of your file 
name is a number. 
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3. If your spelling is correct, 
check )FNS and )VARS 
to make sure the function exists. 


In this case, the solution is simply 
not to misuse the function. All 
you can do is recognize that 

you are using the function 
incorrectly (and why), and try 
again using the correct data type. 
The function may require your 
data to be reshaped; for example, 
you may need to ravel a matrix 
into a vector. 


1. Shorten the name. 


2. Avoid using the illegal 
characters. 


APL Is Easy! 





FILE FULL 


FILE INDEX 
ERROR 


FILE NAME 


ERROR 


FILE NOT FOUND 


FILE TIE ERROR 


FILE TIE QUOTA 
EXCEEDED 


Any more additions to the file 
would make it exceed its reserved 
storage maximum. 


You have tried to read beyond 

the end of the file (such as 

trying to read the 40th component 
in a 39-component file) or before 
the beginning of the file. 


You have attempted to 
create a file with the 
same name as another file 
within the same library. 


The file you are looking 

for does not exist 

in the specified library or on 
the specified disk. 


1. You are trying to use 
a tie number that has no 
file tied to it. 


2. You are trying to tie 
a file to a file number 
that is currently in use. 


You have already tied 
the maximum number of 
files and can tie no more. 
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Use a different file, eliminate the 
file, or eliminate unnecessary 
components in the present file. 


Use DF SIZE to find out how 
many components there are, and 
do not read beyond the last one or 
before the first one. 


Use OF LIB to look at your 
list of files, and choose a new 
name or erase the old file. 


Check the spelling 

of the file name. 

Also, use OF LIB to 

check whether you 

are looking in the right place. 
(On a personal computer, try 
another disk.) 


1. Tie the file and try again. 


2. Check OF NUMS to 

see what file tie numbers are 
already in use. Choose another 
tie number, or untie the other file. 


Use HFUNT IE to untie some of 
the unneeded files. 


Error Messages and What to Do about Them 





INCORRECT 
COMMAND 


INDEX ERROR 


LENGTH ERROR 


LIMIT ERROR 


You have used a system 
command [like )FRASE 
or )COPY ] incorrectly or 
without all the necessary 
parts. 


You have used an invalid 
index (“subscript”) with 

a variable. For example, 
you may have asked for 

the 11th element of a 
10-element vector, or asked 
for the 2.5 element or the 

~2 element. This error also 
occurs for matrices. For 
example, you may have asked 
for the element in the second 
row, third column in a2 x 2 
matrix. 


You are attempting an operation 
with two variables whose 

shapes don’t match, such as 
123 + 45 6 7. 

Also, some functions are defined 
for use only on scalars, vectors, 
or matrices. For example, 

14 5 6 produces a LENGTH 
ERROR. 


You have entered a number 
that is too large or too small 
for the system to handle. Or, 
the rank of your variable is too 


large for the system, for example: 


15*265 
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You may have made a typing 
error. If not, study the command 
and make sure you have included 
all necessary information. 


This error often occurs when you 
go beyond the final element of a 
variable. Check the shape of the 
variable (OVARI ABLE) and 
don’t index beyond it. 


Adjust the shapes of the variables 
if necessary, using reshape (p), 
take ( t), drop (1), or ravel (, ). 


Use some other means of 


representing the number or the 


variable—such as scaling it by 
1000, or dividing it into parts. 


APL Is Easy! 





NONCE ERROR 


RANK ERROR 


STACK FULL 


SYMBOL TABLE 
FULL 


You have used a feature that is 
present on some, but not all, 
APL systems. This is an "error 
for the nonce.” 


You have used a function with 
data of incorrect rank—that is, 


an incorrect number of dimensions. 


A common cause of this is trying 
to index a matrix without using 
a semicolon inside the brackets. 


This is most often caused by a 
user-defined function executing an 
endless loop or calling a function 
recursively. 


You have used too many names 
of user-defined functions and 
variables, also called "symbols." 
APL has no more space 

for names. 
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Don't use the feature. 


Check the shape of your data, and 
make sure the function you're 
using can accept data of that shape. 
When indexing matrices, remem- 
ber to include a semicolon 
between the row and column 
indexes (such as MAT [2 ; 31). 


Check your user-defined function 
for problems or reduce number of 
recursive calls. 


Use ) SYMB to determine the 
allowable number of symbols in 
the symbol table. You must 
reset the symbol table in a clear 
workspace. Enter the following 
sequence of commands to set the 
maximum number of symbols 

to 1024. 


)SIC 

SAVE TEMP 
CLEAR 
SYMBOLS 1024 
COPY TEMP 
)SAVE MYWS 
)DROP TEMP 


EM E. —— A A nU S SS ——É—À— 


SYNTAX ERROR 


VALUE ERROR 


Error Messages and What to Do about Them 


Your APL expression does 

not conform to APL syntax 
(rules of expression). This 
can be for any of the following 
reasons: 


1. You haven't used € ) or [ 1 
in matched pairs. 


2. You're using the wrong number 
of arguments—for example, you've 
tried to use a monadic function 
dyadically. 


3. Two variables are not 
separated by a function (such as 
typing VAR1VAR2 when you 
meant to type VAR1*VAR2). 


]. You have typed the name of 
a variable or function in the active 
workspace that does not exist. 


2. You have misspelled a 
a user-defined function or 
variable name. 


3. You have attempted to use 

the result of a user-defined function 
that was not defined to return an 
explicit result. 
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Most of these causes point 
directly to their solution: 
check your typing. 


1. Insert an extra €, 5, L,or ]. 


2. Check the function to see 
whether it's monadic, niladic, or 
dyadic. 


3. Insert a function between the 
two variable names. 


1. Check your typing. 


2. Check the )FNS or )VARS 
to see whether the user-defined 
function or variable exists. 


3. Change the definition of the 
the user-defined function so that 
it returns an explicit result. 


APL Is Easy! 


a_i Shar sheets Ss 


WS FULL You have attempted a problem 
that created a result (or temporary 
result, invisible to you) that needed 
more space than is available in the 
the active workspace. 


WS NOT FOUND The workspace you are looking 
for does not exist in the specified 
or default library or on the specified 
or default disk. 
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Try erasing some unneeded 
variables or user-defined functions 
to free up some space. Localize 
variables within user-defined 
functions. Place variables or 
functions in files and read and 
write to files. 


Check the spelling of the work- 
space name. Also, use OWSLIB 
to check whether you are looking 
in the right library. On personal 
computers, try another disk. 


Appendix C 
Keyboard Template 





Use this blank keyboard as a guide to the location of the APL symbols discussed 
in this book. Find the location of the symbols in your APL system on your 
specific keyboard; then write them in the appropriate location below. This 


template shows the keys most common to all keyboards; the letters and numbers 
are shown on the keys. 


AAA 
i dbelle Me die ledeo IL le le JL 


AAA 
lle Iole la a LLL 
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Appendix D 
APL Programs Used in This Book 





vACCOUNT V 
[1] [WV 
[2] LYV 
[3] +\V 
[4] +/V 


v 


vÀCCOUNTZ DATA 
[1] "THE LARGEST DEPOSIT IS ',9[/DÀTÀ 
[2] ‘THE LARGEST WITHDRAWAL IS ‘',¢L/DATA 
[3] "THE RUNNING BALANCE IS (| ,8+\DATA 


wv 


vR-À ADD B 
[1] R¢A+B 


wv 


vADDER ; NOS 
[1] ‘ENTER NUMBERS TO BE ADDED' 
[2]  NOSe0 
[3] ‘THE TOTAL IS ', (8+/NOS),'.' 


Vv 


vADDREC 
[1] "ENTER YOUR RECIPE LINE BY LINE (USE “END” TO 
STOP):' 
[2]  RECIPE-60e1D 
[3]  RECIPE- 1 60 PRECIPE 
[4]  L1:'NEXT LINE:' 
[5] NEWLINE+60TO 
[6]  9(^7'END'-3TNEVLINE)PL2 
[7] | NEVLINEe- 1 60 PNEWLINE 
[8]  RECIPE-RECIPE,[1J]NEVLINE 
[9] -L1 
[10] L2:RECIPE DFAPPEND 1111 
[11] DIR«OFREAD 2222 1 
[12] NEWENTRY«RECIPE[1; ] 
[13] DIR«DIR, [1 JNEVENTRY 
[14] DIR OFREPLACE 2222 1 
[15] 'NEV RECIPE FILED. ' 


wv 
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[1] 
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[2] 
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vÀSKAVERAGE 
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‘WHAT NUMBERS DO YOU WANT TO AVERAGE? ' 


VECTOR<O 


ANSWER+« (+/VECTOR )+PVECTOR 
"IHE AVERAGE IS ', (SANSWER),'. ' 


wv 


vÀSKDICE 

t7? 6 6 

"TRY AGAIN? (YES 
2('Y'z110)/1 


wv 


vÀSKDICE2 
LINE1:47? 6 6 
‘TRY AGAIN? (YES 
2('Y'2110)PLINEi1 


v 


vÀSKDICE2 
LINE1:+/7? 6 6 
"TRY AGAIN? (YES 
>('Y'=1T0)pLINE1 


wv 


vASKDIE 

L1:?6 

"TRY AGAIN? (YES 
-('Y'211D)PL1 


wv 


vÀSKDIE2 
LINE1 : 76 

‘TRY AGAIN? (YES 
>('Y'=1T0)pLINE1 


wv 


vASKHIST ; NUMS 


OR NO): 


OR NO): 


OR NO): 


OR NO): 


OR NO): 


‘ENTER FOUR NUMBERS FOR 


NUM S-0 
HIST NUMS 


v 
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vASKREPEAT ; THING; X 
[1] "ENTER THING TO BE REPEATED: ' 
[2]  THING«D 
[3] "REPEAT HOW MANY TIMES?' 
[4] XO 
[5] | XPTHING 


Vv 


vAVG DATA 
[1] (+/DATA )+PDATA 


vV 


vR-AYG2 A 
[1] Re(+/A )-PÀ 


v 


vBUDGET 
[1] ‘ENTER BUDGET ITEM ("END'" TO STOP):' 
[2] INAMESe-2010 
[3]  INAMESe 1 20 PINAMES 
[4]  LP:'NEXT ITEM:' 
[5] | NEVLINE«-2010D 
[6] | 9(^7'END'23fTNEWLINE)PNUMS 
[7]  NEVLINEe 1 20 PNEVLINE 
[8]  INAMESeINAMES,[1 JNEVLINE 
[9]  9SLP 
[18] NUMS:'ENTER BUDGET FIGURES FOR ', (S1TPINAMES), ' 
ITEMS' 
[11] Neo 
[12] TOT<++/N 
[13] PERCENTe-100xN-TOT 
[14] '' 
[15] 'BUDGET IS:' 
[16] '' 
[17] FSBe'20A1,P«$2CF12.2,N«0o70»(Q«o70»F12.1' 
[18] FSB OFMT(INAMES;N; PERCENT) 
[19] 44p'"' 
[20] Te2@t'TOTAL' 
[21] Te 1 20 pT 
[22] FSB OFMT(T;+/N; 108) 
[23] 'DON''T FORGET TO )SAYE IF THIS IS THE FINAL 
VERSION. ' 


wv 
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[1] 


[1] 


[1] 


[1] 


[1] 
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[5] 


[1] 


[1] 


v 


wv 


wv 


wv 


bd 


wv 


wv 


wv 


BUILDDIRECTORY 
DIR¢OFREAD 2222 1 


'ENTER TITLE OF RECIPE:' 


NEVENTRY e6010 


NEVENTRYe 1 60 PNEWENTRY 


DIR«DIR, [1 JNEWENTRY 
DIR OFREPLACE 2222 1 


CALC 
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INCOMEDATA[3; ]J-INCOMEDATA[ 1; ]- INCOMEDATA[2; ] 


CHECK BUCKS 
VITHD<«WITHD, BUCKS 


A CHOOSE B 
À[B] 


vCOLTOT MAT 


*/[1]MAT 


wv 


vCOUNT 


wv 


wv 


wv 


wv 


wv 


wv 


Vv 


ONE 
TVO 
TOO 
TREE 
FORE 


DEPOSIT BUCKS 
DEPOS«DEPOS , BUCKS 


DIE 
?26 


ANS«DIEZ 
ANS«?6 
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vENTER 
[1] GETNAME 
[2] | GETDETAILS 
[3] ‘NEW ITEM FILED. ' 


7 


vReA EQ B 
[1] R+«(A=B)/B 


v 


vERASEBLANK S 
[1] (' '=S5)/S 


v 


vFILERECIPE 
[1] 'RECIPES' [IFTIE 9971 
[2] "ENTER YOUR RECIPE LINE BY LINE (USE “END” TO 
STOP):' 
[3] RECIPE«6010l 
[4] RECIPE- 1 60 PRECIPE 
[5] L1:'NEXT LINE:' 
[6] NEVLINE«60 TD 
[7] 2(^A^/'END'23fTNEVLINE)PL2 
[8] NEVLINE- 1 60 PNEWLINE 
[9] RECIPE+RECIPE, [1 JNEVLINE 
[10] »L1 
[11] L2:RECIPE OFAPPEND 9971 
[12] OFUNTIE 9971 
[13] ‘DONE. NEW RECIPE FILED.' 


v 


vFILESALES; SALES 
[1] A PUT NEV SALES FIGURES IN SALES FILE 
[2] ' SALESFIG' OFTIE 2201 
[3] ‘ENTER SALES FIGURES FOR THIS VEEK' 
[4] SALESe0 
[5] SALES OFAPPEND 2281 
[6] OFUNTIE 2201 
[7] ‘NEW SALES FILED. 


v 
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vFLIP 

Ne 2 5p'HEADSTAILS' 
((72)= 1 2)/[1]N 

"TRY AGAIN? (YES OR NO): ' 
2('Y'-110)p2 


v 


-FLIP2 

Ne 2 5p'HEADSTAILS' 

MORE: ((72)= 1 2)/[1]N 
"TRY AGAIN? (YES OR NO):' 
+('Y'=11T0)pMORE 


v 


vGETDATA 
"SALES' OFTIE 1876 
SNOS<OFREAD 1076 1 
MONCOFREAD 1076 2 
SALES¢OFREAD 1876 3 


wv 


vGETDETAILS 

DETAILS-DFREAD 1868 3 

"SERIAL NUMBER, DATE PURCHASED, AND PRICE:' 
NEVDe351T0Dl 

DETAILSeDETAILS,[1 JNEWD 

DETAILS OFREPLACE 1068 3 


v 


vGETNAHE 

NAMECOFREAD 1068 2 
‘NAME OF ITEM: ' 
NEWNAME+ 2610) 
NAME-NAME, [1 ]NEWNAME 
NAME OFREPLACE 1068 2 


v 


-R-À GT B 
Re(A»2B)/À 


v 
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vGUESS 
[1] I''M THINKING OF A NUMBER BETWEEN 1 AND 3.' 
[2] ‘WHAT IS IT?' 
[3] | LOOP:'ENTER YOUR NUMBER: ' 
[4] NUMO 
[5] ANS«?3 
[6] | 9(ANS-NUM)POK 
[7] I''M SORRY. THE NUMBER WAS ',(9$ANS),'.' 
[8] TRY AGAIN?' 
[9]  »('Y'2-110)PLOOP 
[10] >09 
[11] OK:'RIGHT! TRY AGAIN?' 
[12] »('Y'-11D)PLOOP 


wv 


vGUESS2 
[1] I''M THINKING OF A NUMBER BETWEEN 1 AND 3.' 
[2] "WHAT IS IT?' 
[3] | LOOP:'ENTER YOUR NUMBER' 
[4] NUM¢D 
[5] ANS«?3 
[6] | 9(ANS-NUM)PCK 
[7] 'I''M SORRY, THE NUMBER WAS ',(9$ANS),'.' 
[8] ‘TRY AGAIN?' 
[9]  »('Y'-2-11D0)PLOOP 
[10] -8@ 
[11] OK:'RIGHT! TRY AGAIN?' 
[12] »('Y'-11TD)PLOOP 


wv 


«R-HALF NUM 
[1] ReNUMx0.5 


wv 


-HELLO 
[1] ‘MY NAME IS JERRY. WHAT''S YOURS?' 
[2] aed 


[3] ‘NICE TO MEET YOU, ',à,'.' 


Y 


vHIST D 

[1] D[1] OF 'D' 
[2]  D[2] OF 'D' 
[3]  D[3] OF '‘D' 
[4] D4] OF ‘O' 


v 
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vINITBAL AMOUNT 
DEPOS- AMOUNT 
WITHD<«8 


wv 


vINVSTART 
'INVENTOR' OFTIE 1068 


wv 


vLIST;DIR;NUMS; NUMBER ; NAMES; NAM; DET 

A MANAGES HOUSEHOLD INVENTORY SYSTEM 
L1:'LIST, ITEMS, OR QUIT? (D,I,Q):' 
2('DIQ'2110)/DI,ITEMS, EXIT 

"PLEASE ENTER D, I, OR Q' 

L1 

DI:DIR«DFREAD 1068 2 

NUMSe€111PDIR 

'Q« >1I5,20A1' DFMT(NUMS;DIR) 

L1 

ITEMS: 'LIST WHICH ITEM (BY NUMBER )?' 
NUMBER +0 | 
NAMES<OFREAD 1068 2 

DETAILS¢OFREAD 18068 3 
NAM-NAMES[NUMBER; ] 
DET«-DETAILS[NUMBER; ] 

NAM,DET 

L1 

EXIT: 


wv 


vLISTDIRECTORY 
DIR 


Vv 


vReA LT B 
R¢(A<B)/A 


wv 


vMONTH NUM 
M«NUM 


vY 


vNEVBAL 
(+/DEPOS )-+/WITHD 


wv 
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vNOBLANK CHARVECT 
[1] A REMOVES BLANKS FROM CHARACTER VECTOR 
[2] (CHARVECT=' ' )/CHARVECT 


v 


-X OF Y 
[1]  XPY 


vV 


vReWIDTH PERIM LENGTH 
[1] Re€2xVIDTH4LENGTH 


wv 


-VIDTH PERIMETER LENGTH 
[1] 2xWIDTH+LENGTH 


wv 


vPRINT 
[1] (MON=M )/ (SNOS=S )/[1 ]SALES 


wv 


vREAD DATA 
[1]  DFREAD 277,DATA 


v 


vREADZ 
[1] 'RECIPES' DFTIE 3371 
[2] ‘WHAT IS THE NUMBER OF THE RECIPE?' 
[3] ANS«O 
[4] | UFREAD 3371,ANS 
[5] OFUNTIE 3371 


wv 


vREADREC 
[1] ‘READ WHICH RECIPE (BY NUMBER)' 
[2] | RECNO«H 
[3] OFREAD 1111,RECNO 


wv 
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[2] 
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vRECIPES 

TIEFILES 

L@:'LIST, READ, AD, OR QUIT? (L, R, A, OR Q):' 
>('LRAQ'=110)/L1,L2,L3,L4 
L1: LISTDIRECTORY 

2L0 

L2:READREC 

L0 

L3: ADDREC 

L0 

L4:OFUNTIE 1111 2222 


v 


vREPEAT X 

X,' M dq Em o t P ' X 
vREPORT 

l HOMEGROWN CO. ' 

1981 1982 1983' 
CALC 


'7A1,3CF12.2' OFMT(NAMES; INCOMEDATA ) 


REPT DATA 
TOT++/DATA 
'9A1,3CP<$>F12.2' OFMT(N1; DATA; TOT) 


4 


ROWTOT MAT 
+/MAT 


v 


4 


RPT DATA 
DATA 


4 


COLTOT DATA 


v 
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vRPT2 DATA 
[1] SALES FIGURES' 

[2] VEER1 VEEK2 TOTALS' 
[3] TOT++/DATA 

[4] '9à1,3CP«$»F12.2' OFMT(N1; DATA; TOT) 


v 


vRUNTOT DATÀ 
[1]  +\DATA 


wv 


vSALESMAN NUM 
[1] | SeNUM 


wv 


vSHOWBUDGET 
[1] A DISPLAYS BUDGET CREATED BY “BUDGET” FUNCTION 
[2] oo 
[3] FSB OFMT(INAMES ;N; PERCENT ) 
[4] 44p'~' 
[5] FSB OFMT(T;+/N; 100) 


v 


vSQUARE X 
[1] "THE NUMBER SQUARED IS ',9XxX 


wv 


vIIE 
[1] 'EXERCISE' OFTIE 277 


wv 


vTIEFILES 
[1] 'RECIPES' OFTIE 1111 
[2] ‘DIRECTRY' OFTIE 2222 


wv 


vIOTAL COMPNO 
[1] MAT¢OFREAD 277,COMPNO 
[2] +/MAT 


wv 


226 


[1] 
[2] 
[3] 


[1] 
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[3] 


wv 


wv 


wv 


wv 


TOTSALE ITEM 
IT¢OFREAD 277 2 
PR¢OFREAD 277 3 


IT[ITEM, ]|xPR[ ITEM ] 


TOTSALES 


ITEMS¢OFREAD 277 2 
PRICES¢OFREAD 277 3 


PRICESx+/ITEMS 
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append 


character data 


Add data to the end of a file. You normally add new data to a file by appending 
the data to the file (that is, by using the command OF APPEND). 


Data that is not used for arithmetic, but which is rather passed back to the user as 
itis. Character data is distinguished from numeric data by placing single quotes at 
the beginning and end of the data. 


character input mode 


column 


component 


data 


DEFN ERROR 


del 


State in which the computer accepts character input without its being enclosed in 
single quotes. Used in interactive functions. Also called quote-quad input. 


The second dimension of a matrix—the vertical arrangement of a matrix's 
numbers. 


Single segment of a file. Components are numbered sequentially (1, 2, 3, and so 
on) and contain only one thing at a time. They can contain either character or 
numeric data of any size or shape. 


Numbers, or letters and symbols, that a function does its work on. APL works 
with data in the form of scalars, vectors, matrices, and even data with more 
dimensions (which is beyond the scope of this book). 


Definition error, results when you try to define a function with too many 
arguments. Also results when you try to define a function that has the same name 
as a variable or an existing function in the workspace. 


The V symbol. Used to identify the beginning and end of a function definition. 
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DOMAIN ERROR 
Results when you try to use a function in ways it's not defined to be used, such as 
5+00r174. 


dyadic function 
Type of function that has two arguments, or pieces of data. In particular, it has 
both a left and a right argument. An example is the plus function: 4 * 5. 
Compare with “monadic function." 


element 
A segment or part of a vector. For example, the third elements of the vectors 1 
2 3 4and 'MARY' are 3 and R. 


evaluated input mode 
State in which the system accepts input in the form of numbers or characters 
enclosed in single quotes. Used in interactive functions. Also called quad input 
mode. 


explicit result 
A function result that is stored by the system so that it can be used by other 
functions for further work. Functions without explicit results merely display their 
results; the results are not stored. 


expression 
See "statement." 


file 
Storage place for data that is independent of the workspace. Files must be tied to 
be active, and they are referred to by their tie numbers. 


FILE INDEX ERROR 
Results when you try to read or replace a file component that doesn't exist. 


FILE NAME ERROR 
Results when the file name is incorrect, usually because of a typing error. Also 
results if you try to create a file with a name already being used by one of your 
other files. 
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FILE TIE ERROR 


formatting 


function 


Results if no file is currently tied to the tie number you've entered. Also results 
if you try to tie a file using a tie number that you're currently using for another 
file. 


Process of displaying the system's responses (output) in a form different from the 
one the system usually provides. This includes changing the spacing, inserting 
commas and other symbols or text, and changing the number of decimal places. 


List of instructions for performing a task. In APL, functions can be built-in 
(such as + and +) or user-defined. Both types of functions use data to do work. 


function definition mode 


global variables 


State in which the system accepts the lines of a user-defined function. The system 
collects these lines and stores them until you run the function. You enter and exit 
this state by entering a del (V). 


Variables that are used throughout the workspace. These variables might be used 
by a number of functions in the workspace. Compare with “local variables." 


immediate execution mode 


interactive 


iota 


length 


State in which the computer acts as a desk calculator, executing APL statements 
and giving answers. The system is always in this state when you sign on. 


Type of function that "interacts" with you by asking you questions and doing its 
work with the answers. 


The 1 symbol, used by the “count” function. 


The number of elements in a vector. For example, both of the vectors 1 2 3 
4 and 'MARY' havea length of four. 
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LENGTH ERROR | 
Results when you try to use two arguments that don't have the same number of 
elements, suchas 1 2 + 3 4 5. 


line labels 
Names used to identify lines of a user-defined function. Used together with 
branching to guide the system's execution of a function. Labels are separated by a 
colon from APL statements on the same line of the function. 


local variables 
Variables “locked inside" a user-defined function. These variables exist only while 
a function is being run; they are erased when the program is complete. Compare 
with “global variables." 


matrix 
A table of data. A matrix has two dimensions—rows and columns. Rows are the 
first dimension, and columns are the second dimension. Both numeric data and 
character data can be formed into matrices using the reshape function. 


monadic function 
Type of function with a right argument only. That is, a function that takes data 
on the right side only. An example is the shape function: oVECTOR. 
Compare with “dyadic function.” 


numeric data 
Numbers used for arithmetic in the computer. Compare with “character data.” 


order of execution 
The rule used by APL to solve a problem (that is, to execute a line you enter). 
APL always begins with the part of the expression farthest to the right, solves it, 
and then uses the answer to solve the next part of the expression. When APL 
reaches the left-most part of the expression, it knows that it’s finished. APL then 
either displays the final result or stores the result in a variable, depending on what 
you’ ve asked it to do. 


quad 


The O symbol. Used in function editing commands, in file system functions and 
other system functions, and to request evaluated input. 
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quad input mode 
See "evaluated input mode." 


quote-quad 
The O symbol, used to request character input. 


quote-quad input mode 
See "character input mode." 


RANK ERROR 
Similar to a LENGTH ERROR. Results when you use two arguments that 
don't have the correct number of dimensions, such as trying to add a vector (one 
dimension) to a matrix (two dimensions). 


relational functions 
Built-in APL functions that show a relationship between two numbers. Includes 
the functions “less than" (<), “less than or equal to" (<), “equals” (=), “greater 
than or equal to” (2), "greater than" (>) and "not equal to” (#). 


repetition factor 
A number placed at the beginning of a format phrase that indicates how many 
times the format phrase should be repeated. That is, it shows how many times 
the system should use the same format phrase to format consecutive columns of 


data. 
rho 
The p symbol. Used with the functions "shape" and “reshape.” 
row 
The horizontal arrangement of numbers in a matrix. Rows are considered the first 
dimension of a matrix. 
scalar 
A single number. Compare with "vector" and “matrix.” 
statement 


String of APL symbols and numbers or letters. A statement always contains at 
least one function (a symbol) and some data (numbers or letters). 
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subfunction 
Function called by another function. The main function includes the name of the 
subfunction as one of its lines; thus the subfunction gets run as part of running 
the main function. 

syntax 


General form of a function. A function's syntax tells how many arguments a 
function takes and which side of the function name or symbol they appear on. 
User-defined functions have three possible syntaxes—one argument (a right 
argument), two arguments (left and right arguments), or no arguments. Built-in 
APL functions have only two possible syntaxes—one argument or two 
arguments. 


! SYNTAX ERROR 
Results when you mix up the order of the function and data (suchas 2 3 4+/) 
or you try to use too many arguments (such as 2 AVG 9 10 11, where 
AVG has the syntax AVG data). 


system commands 
Commands such as )LOAD and ) SAVE that control the system rather than do 
arithmetic. 


system functions 
Commands such as LOAD that are similar to system commands but may be 
used inside user-defined functions. Some system functions, such as [1F MT, have 
capabilities beyond those of system commands. 


tie number 
Whole number associated with a file while the file is active. You must use 
unique tie numbers for each file you have tied, but you can use different tie 
numbers for a file each time you tie it. 


VALUE ERROR 
Results when you ask for a variable that doesn't exist. This message often results 
from a typing error, such as if you entered DAT when you meant DATA. 
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variable 
Storage place for data. Variables have names that can include both letters and 
numbers, as long as the first character of the name is a letter. Data stored in 
variables is stored permanently when you enter the command ) SAVE 
vector 
List, or string, of numbers, each separated by at least one blank space. For 
example, 7 9 11 isa vector. 
workspace 


Place for storing both functions and data. Workspace names must begin with a 
letter. Workspaces are stored permanently when you enter the command ) SAVE. 
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When an item has two or more page numbers noted, the most significant are shown in boldface. 
Leading APL characters, such as ) and D, are ignored in the alphabetical list. 


A 

active workspace 104-106, 108-112, 150 
and function 54 

and reduction 55, 56, 61 
APL 4, 5, 16 

APL idioms 176, 180 
APL symbols 8 
argument 23, 24 
assignment arrow 16 
atomic vector 158 

DAV 158, 159 


b | 
branch function 134-136, 144, 149, 177 
branching 129, 134-136, 144, 177 


C 


calendar 7-9 
catenate function 18-19 
with matrices 132 
ceiling 159 
character data 28-32, 129-131, 155, 158, 163, 
177 
digits as 30 
in a function 75, 129 
in programs 64 
selecting 52 
character input mode 130, 131 
character matrices 31, 44, 57 
character vector 30, 45, 133, 137, 176 
characteristics of files 114 
checking for an empty vector 179 
circular 175 
) CLEAR 11, 43, 69, 90, 104-107, 109-112 
clear workspace 104, 105 


clearing the workspace 11 

combinations function 175 

comment 137, 149 

component of a file 114, 116-118, 121-124, 126 

component number 116-118, 121, 123, 124 
compression function 51, 52, 56, 58, 60, 
62, 131, 132, 144 

conditional branch 134 

) COPY 64, 105, 108, 110-112 

correcting errors 15, 68-74 

count function 41-42 


D 


decorations 95 

defining functions 65-90 

DEFN ERROR 69,78, 137, 208 

del editor 66 

DEMOAPL 6, 8, 9, 106 

DESCRIBE 6, 8,9 

DOMAIN ERROR 30,31, 41, 53, 92, 173, 209 
DROP 109 

drop function 170, 171 

dyadic function 23 


E 

editing a function 67-74 

) ERASE 69, 70, 76, 78, 104, 107, 108, 111 
error message 6-8, 208-214 

evaluated input 130, 131, 148 

evaluated input mode 131 

execute function 162 

explicit result 79-85, 88 

exponentiation function 171 
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F 
DFAPPEND 115,116, 121, 123 
OFCREATE 115, 120, 121 
OFERASE 120, 121 
OFI 163 
file 79, 113-124, 126, 128, 140-153 
advantages of using 113 
creating 115 
defined 113 
determining size of 116 
erasing 120 
listing 120 
naming 119 
putting data in 115 
reading data from 117 
tying 119 
untying 118 
using in functions 140-147 
FILE ARGUMENT ERROR 209 
FILE FULL 210 
FILE INDEX ERROR 117, 147, 210 
FILE NAME ERROR 115, 209 
FILE NOT FOUND210 
FILE TIE ERROR 118, 119, 121, 210 
FILE TIE QUOTA EXCEEDED 210 
OFLIB 120, 121 
floor function 159 
OFMT 91, 93-102 
OFNAMES 119-122 


)FNS 9, 10, 83, 107, 111 
OFNUMS 119, 121-123 

format function 31, 91-93 

format pairs 91, 92 

format phrases 93, 95-97, 100, 102 
format string 96, 97, 99 

formatting 91-103 

OFREAD 114, 117-119, 121, 123, 124 
OFREPLACE 118, 121, 123 
DFSIZE 116, 121 

OFTIE 119, 121, 123 


function 
arguments of 23 
defined 9, 65 
dyadic 24, 77 
editing 68-74 
explicit result in 79 
interactive 129 
listing a definition of 70 
listing names of 9, 107 
monadic 24, 76 
niladic 78 
syntax of 82 
function definition mode 64, 66-69, 71-74, 76, 
83, 84 
function header 66, 84 
OFUNTIE 118-121 


G 
global variables 138, 139, 149, 154 
grade function 157 


H 
high minus symbol 13, 14 


I 
immediate execution mode 11, 12, 66, 75, 83, 
131 
INCORRECT COMMAND 211 
INDEX ERROR 40,211 
index function 28, 37-40 
indexing 32, 37-40 
into a matrix 39 
together with assignment 38 
with character data 40 
inner product function 162, 172, 173 
input line editing 15 
interactive function 129, 180 
interrupting input 16 
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L 

lamp symbol 137, 149 

OLC 177 

least-squares approximation 175 
LENGTH ERROR 13, 15, 211 
LESSONS 64, 83, 150 


)LIB 104, 106, 108, 109, 111, 112, 180 

library 104, 106, 108, 109, 111, 112, 119-121, 
180 

library number 104, 106 

LIMIT ERROR 211 

line labels 135, 136 


) LOAD 43, 104-108, 110-112 
local variables 137, 139, 140, 149 
log function 166, 171 

logarithm function 171 


M 

matrix 19-21, 23, 24, 26 

matrix division function 173 

matrix multiplication function 162, 171, 172 
maximum function 28, 32-35, 37, 44 
maximum reduction 34, 35 
membership function 159 

middle minus symbol 13 

minimum function 28, 34, 35, 37, 44 
minimum reduction 35 

mixing vectors with scalars 13 
monadic function 23 
multidimensional objects 165, 166 


N 


negative number 13, 14 
NONCE ERROR 211 
numeric data 28, 41, 44, 91, 163 
numeric formatting 93 
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) OF F 100, 111, 112, 170, 171 
or function 54 
or reduction 56, 61 


order of execution 14, 15 
outer product function 171, 172 
overturn function 168, 169 


P 

plus reduction 28, 35, 53, 65, 76, 172 
plus scan 28, 37, 44 

power function 162, 167, 171-173 
program (see function) 4-9, 65-90 


quad input 129-131, 134, 135, 148, 149 
quote-quad 130, 131, 134, 135, 149 
quote-quad input mode 130 


R 

rank 164-166, 176, 179 

rank error 212 

ravel 166, 167 

reduction 28, 34-37, 53, 55-57, 61, 62, 65, 76, 
172 

reduction on a matrix 35 

reduction with multiplication 35 

relational functions 52, 53 

reordering a matrix 158 

repetition factor 97, 98, 100, 102 

replacing an entire line 68 

reshape function 11, 19, 20, 24 

right-to-left execution 14, 24 

roll function 42-44 

rotate function 167-169 

rounding 159 

running total 85 
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) SAVE 43, 60, 83, 104-112 
scalar 12, 13, 23 

scan function 28, 37, 44 
selection expression 52, 58 
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APL Is Easy! 
1 
——————————————————————————————su 


shape function 18-20 W 

of a group of characters 29 where function 160 

of a matrix 20 workspace 
) SIC 69, 76, 137 active 104 
sorting 158, 169 clearing 11, 105 
OSS 167, 179 copying 110 
stack 69 defined 7, 10, 104 
STACK FULL 212 dropping 109 
SYMBOL TABLE FULL212 listing contents of 9, 107 | 
syntax 82, 163 listing names of 108 
SYNTAX ERROR 82,163,213 loading 7 
system command 105-111 naming 108 
system function 91, 93, 99, 111, 163, 167, 177, saving 105 

179 writing programs 64-90 

WS FULL 214 | 

T WS NOT FOUND 214 
table lookup function 161, 162 JWSID 108, 109, 112 
take function 132 )WSLIB 108-110, 112 
tie number 114-121, 124 | 
transpose 169 


trapping errors 145 
trigonometric functions 175 


U 
user-defined function 65-90 
using parentheses 15, 24 | 


V 
VALUE ERROR 213 
variable 6, 9, 10, 16-18, 22, 26, 27 
global 138 
local 138 | 
vector 12, 13, 19, 20, 23, 24, 26 
as a "key" to a matrix 58 
) VARS 9, 10, 107, 108, 112 
OVI 163 
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